* = 


nam nFBES e qe nd a ana AR 
MINE AL É im 2) 2 «5 SIDI DID 





Potntbrush -LEAVESHME 
Options Help 


NE 
À Ny 
ii 








EU 
comDE! 
Rio 94 
TELECOMUNICAÇÕES 











CONGRESSO & FEIRA 


Se a sua empresa deseja vender para 
um público profissional altamente qualificado... 

Se à sua empresa visa estabelecer ou ampliar relações comerciais 
com empresas privadas ou estatais com alto poder de compra... 
Se a sua empresa busca criar novos canais de distribuição 
ou novas parcerias... 

Se à Sua empresa está lançando novos produtos... 

« O Seu primeiro encontro de negócios já está marcado! | 
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Uma das pedras no sapato de quem programa, nesses tempos de interfaces 
gráficas, é lidar com os inúmeros padrões de arquivos existentes no mercado. 
Terreno pantanoso, o assunto começa a ser desmistificado por Micro Sistemas 
justamente pelo Windows, onde o problema é mais agudo. Nesta edição, Cleuton 
Sampaio aborda os arquivos BMP e WMF e mostra como trabalhar com esse tipo 
de imagem, no Windows 

Duas matérias, iniciadas na edição anterior, são complementadas agora: Tudo 
sobre Winchester, de Laercio Vasconcelos e Gerador de Telas, de Marcos 
Santello - 

E para a turma dos programas, o Controle de Clientes, de Renato André Alves, 
é certamente uma dica interessante. Vale a pena conferir. 

O ano, que neste lado da linha do equador começa em março, estã prometendo 
um festival de feiras e acontecimentos. O que tem chegado de releases e 
programas, aqui na redação, já dá para antever uma agitação muito grande. É 
esperar para conferir. 


Renato Deglovanl 
e rr 
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VITECH DISTRIBUIR DISCOS 
RIGIDOS DA MAXTOR 


A Vitech - Vitória Tecnologia S/A acaba de firmar acordo 
com a Maxtor Co. para a distribuição de discos rigidos high- 
quality no Brasil. Inicialmente serão colocados no mercado 
quatro modelos da “ Série Maxtor 7000”, com capacidades 
variando de 245 a 546 Mb. 

Todos os HDs são do tipo LOW PROFILE (baixa altura), com 
tecnologiaROTARY VOICE-COIL, baixo consumo, no tamanho 
de 3.5 polegadas. Apresentam INTERLEAVE de 1:1, cache 
próprio variando de 64 a 256Kbe são 100% SMT (Surface Mount 
Technology). 

Os quatro modelos são os seguintes: Maxtor 7245 (245Mb), 
Maxtor 7273 (273Mb), Maxtor 7345 (345Mb) e Maxtor 7546 
(546Mb). Eles levam o selo de total compatibilidade com os 
ambientes Microsoft Windows NT e Novell NetWare. 

Estes quatro modelos Maxtor serão importados na forma de 
produtos acabados. Eles virão para complementar a linha, 
permitindo oferecer HDs com maior capacidade de 
armazenamento de dados. Continuaremos também fabricando 
normalmente nossos discos de 105 e 120Mb, com tecnologia da 
empresa norte americana Kalok. A Vitech será responsável não 
apenas pela importação e distribuição dos discos Maxtor no 
Brasil, mas tambem pela assistencia técnica e garantia dos 
produtos. 

Com capacidade que vão de 84Mba 1,24Gb, seus discos estão 
disponíveis nos tamanhos de 1,8 polegadas a 2,5 polegadas e 3,5 
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DIGICUT: SOLUÇÃO PARA CORTE 
DE VINYL 


A Digigraf, lider nacional na fabricação e distribuição de 
periféricos gráficos para CAE/ICADICAM, acaba de criar o 
sistema DigiCut - Solução Digital para Corte de Vinyl e filmes 
de recorte. Reunindo a mais avançada tecnologia mundial de 
corte de materiais ela integra plataformas gráficas que integram 
nos ambientes Macintoshe MS-windows complotters cortadores 
Houston-Summagraphics e os principais softwares gráficos 
disponíveisno mercado. O sistema DigiCut destina-se ao segmento 
de sinalização e comunicação visual computadorizada, um 
nicho de mercado em expansão no Brasil. 

“Estamos empenhados em tornar esta tecnologia bastante 
acessível junto aos sighn designers, profissionais de corte e 
departamentos gráficos de grandes companhias, através de suas 
multiplas aplicações possíveis”, referindo-se, por exemplo, a 
decoração de vitrines, letreiros, painéis, jateamento de areia em 
vidro, silk-screen, adesivos para carros, motos, ônibus, aviões, 
entre outras. “A técnologia de corte de materiais, a solução 
DigiCut alia, ainda, servços de colsultoria, treinamento e 
suporte técnico especializados”, informa o diretor. A Digigraf 
espera conquistar 40% deste mercado. 


FESTO DIDACTIC DIVULGA 
CURSOS DE ABRIL PARA 1994 


A Festo Didactic, unidade de negócios da Festo, trabalha 
voltada para o ensino de Automação Industrial e Comunicação, 
desenvolvendo cursos, materiais didáticos dirigidos paraa prática 
dos alunos , materias de apoio ao docente, e consultoria em 
engenharia de ensino e esta divulgando sua programação para 
fevereiro. 

Os cursos são realizados na matriz, situada em São Paulo 
(Anchieta), nas filiais de São Paulo (Lapa), Campinas, Rio de 
Janeiro, Belo Horizonte, Coritiba, Joinvile, Recife, PortpAlegre 
e em seus distribuidores de Manaus, Natal, Fortaleza, Vitória, 
João Pessoa, Goiania, Slavador e Maringa, podendo atingir 
desde pessoas que desejam conhecer as técnicas iniciais da 
pneumática, hidraulica, eletricidade e eletrônica, como 
engenheiros, técnicos, projetistas e pessoal de manutenção. 

Há 19 anos no Brasil, a Festo Didactic já treinou cerca de 22 
mil proficionais de manutenção, projeto, produção e engenharia, 
professores e intrutorestécnicos da área de automação industrial, 
tornando-se mundialmente reconhecida pelo seu trabalho. 
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CONTABILIDADE EM 
CLIPPER COM FONTES 
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Balancete 


METASOFT “- Livro diário 


Rua Clemente Falcão, 122 - Tijuca 
Cep:20510-120 - Rio de Janeiro - RJ 
Teis.:(021)268-2576/288-5924 
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ALEX SOFT INFORMÁTICA, 


R. Pedro de Toledo, 967 /2 - São Ps > 04039-( - ante 


Preços Gravação 5 Y DD (com Disco) : US$ 1,3 “Dolar 
Imbatíveis !!! Gravação 5% | 


es Confira a Validade dos Precos Drreio (a caga 20 


edidos, : por Carta ou Fone de Seg. à Sex. das 10:00 às 19:00, Sábado das 10:00 às 15:00, Relacionando o Código, 
mero de discos dos Programas desejados. Não esqueça de adicionar ao pedido a taxa de Correio, 

Formas de Pagamento : 1-) CHEQUE NOMINAL; à Alex Soft Entret. e Locação Ltda. ou 2-) DEPÓSITO EM CONTA: Banco Bradesco, 
Agência 2282 - 9, Conta 5.520 - 4 em nome de Alex Soft Entretenimento e Locação Ltda., enviando xerox do depósito junto ão pedido. . 
atrônico : Envie um disco 5 4 DD ou CR$ 400,00 ,c/ seu nome e endereço. Compras acima de 8 discos o catálogo é grátis 
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CÓD, NOME DO JOGO aa QD: 8 50735 SPEAR OF DESTINY M) 02 HD 
AÇÃO E AVENTURA : $0100 STREET FIGHTER 02 DD 



























































































St “a 03 DD 
$0113 007- LICENCE TO K&L (M) 02 DD AdiOS TAKIAR 02 HD 
<&009% ALTERED BEAST 02 DD [50501 TEA 01 HD 
$0142 ARACHNOPHOBIA 04 DD [d0094 TEGEL'S MERCENAREES (V) 02-HD 
ASTERIX TERMINATOR !(V) 02 HD 
IN GONG HOME (V) $0077 TERMINATOR H (V) 01H 
003 BACK TO THE FUTURE Nº (Vi 01 HO 850070 THE AMAZING SPIDERMAN 02 PD 05 DE 
$0023 BAD DUDES . $0151 THE FLINTSTONES 01 DD CARMEN SAN DIEGO IN SPACE 
BARBARIAN $0286 THE GODFATHER (VI 05 HD OUT 80439 WINTER GAMES 0 $1071 CHALLENGE of the 
80741 THE ETSONS 01 DD ESTRATÉGIA x DRAGON'S LA 
$0022 THE LAST NINJA UU 03 DD OWER DRFT 0 E DOOM (v) (3) 
$0315 THE ROCKETEER (V) 03 HD CARRER AT WAR (V) (3) 
50285 THEXDER 11 (V) 01 HD E doo64 ETROAD II 0 CIVILIZATION (V) 
M $0402 TITUS THE FOX (V) 01 HD STUNT DINQMARS 
50040 CHALL. ANCIENT EMPIRES (V) $0469 TONGUE OF THE FATMAN 02 HD STUNTS LFR (9 04 HD DP-BEMOTDER TV MHD 
$0617 COLORADO $0095 WINGS OF FURY 02 DD POPULOUS 11 (V) $1163 FLASH BACK (V) 03HD 
COMMANDER KEEN IV [V) d0072 WOLFEINSTAIN 3D (V) 01 HD É BR 0036 SIM ANTIVI $1255 FREDDY FARKAS (V) 06 HD 
COMMANDER KEEN V (V) 50437 WORLD KARATE CHAMPIONSHIP 01 DOVIdODIA TES DF S0583 SIM CITY (VI 08 HD 
COMMNADER KEEN VI [V) $0648 WRESTLEMANIA RD 50118 SM EARTH 5 GOBLENS II(V) 02 HD 
CONAN THE CIMMERIAN (4) S0424 X-MEN 1 ui : S0850 SIM LIFE (M) $1212 HOME ALONE A (V) 02 HD 
$1024 CONTRA ADVENTURES E R.PG.'S: r o1HO 51200 HONG KONG MAHJONG PRO (V) 02HD 
5 CRIME WAVE O 08.DD 8 50831 ALONE IN THE DARK (V) e “05 HD isa pç dia REA o! + 2 INDYCAR 03HD 
CVICROENIE RANGER M HD E 0975 ANDO O o CASSINOS E TABULEIROS: PORNÔS E ERÓTICOS : 
DESPERADO H 02 DD 850887 BATMAN RETUTNS (V) 07 HD 550607 AMARÃO SLIN POKER 50356 ADULT GAMES 01 DO ESII2Z1 JUMP ET (Vi (3) 03 HO 
DICK TRACY 06 DD 8$1195 CARMENS. DEGO DELUXE (V) 05H [50098 BATTLE CHESS | 50485 BUNNY'S BEACH BALL (V) 01 HD 01 HD 
DIE HARD 01 HD | 50586 CONQUEST OF CAMELOT 02 HD ES0050 BATTLE CHESS li COBRA MISSION (V) (3) 05 HO 2 HD 
DOUBLE DRAGON Ht (M 01 HD 050773 € DOWN (V) 02 HD 850436 BILHAR 0 HAIRLESS 1 (V) 04 HD 
DOWN RAIDER [V) 01 HD 85095 CURSE OF ENCHART (V) 07 HD É$ HESSMAS ON 1 (VN3 NH (V) 05 HD 
DRAGON'S LAR Ill 12 DD 0 $0862 DARK LAND (V) VI HD Mdogaa TTHESS MASTER 3000 (V]) $0456 PENTHOUSE JIG SAW (V) 06 HD 
5 DUKE NUKEN (V) 05 HDWADO9) CHESSMASTER RP WINDOWS (V) POOR MANDI F 03HD 
2 03 HD 8$0598 CYRUS CHESS 3D PONEINO 
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MHO ESiIB9 ) WHITE A CROCÍIR EX BRA 
04 HO . : HD 
03 HO ARKANOIO |! 03HD 
03 HD 008 BLOCK QUT 01 OD 09 HD 
05 HD $0763 BRKX 01 HO HD 
05 HD 8025] COMAN(M 02 DO 01 HD 
AL 01 HO 666 FACES... TRIS 11 (V) 03 DO HD 
HORROR ZOMBE (V) 0 é 03 HD ESPACIAIS : $0276 HG SAW PUZZLE 02 DD 02 HD 
IND. JONES ANO LAST CRUSADE r 07 HD ' : $0059 LEMMINGS 03 DO HD 
5 WARRIORS 0 0092 HOT 02 HO ELITE | 01 DD 8 $0197 MICKEY MOUSE 123% (V) 03D0 03 HD 
JAL OF THE JUNGLE dl 0044 IND. JONES - FATE OF ATLANTIS (V) 06 HD GALACTIX (V) 02 HD E $1043 PACK GAMES FOR WINDOWS 02HD 05 HD 
KARATEKA 50594 IND, - LAST CRUSADE (V) 04HD KILOBLASTER (V) 01 HD E $0399 SUPER TETRIS (V) 01 HD 05 HD 
LIFE & DEATH H(V) CTOR GADGET (V) 04 HO [50894 MANTIS: EXPER. FIGHTER (V) 007 TETRIS 02 HD 
MARIO BROS (V) KG.B (V) 03 HO MECH WARRIORS THE HUMANS (V) 0 05 HD 
KING'$ QUEST V (V) 09 HD [81048 PLAN 9- FROM OUTER SPACE (V) $1064 THE INCREDIBLEMACHINE (V)  OIHD 10HD 
LEGEND OE RYRANDIA M dá HD STAR DEFENCE" E genlas OT HO 
LEISURE SUIT LARRY V (V) 08 HD SIMULADORES EM GERAL : 4 HO 
LOOM 06 DD 80012 688 ATIACK SUS 01 DD 02 HD 
NUCLEAR MART 05 HDV SOI44 A 10 TANK KALER U 06 DD 05 HD 
OMS WELL MIGHT & MAGIC 1H 03 HD d0079 ACES OF THE PACIFIC (4) (3) 03HD 03 HD 
OLIVER & COMPANY 02 DD E d0039 MIXED-UP FAIRY TALES (V) 04 HO $0727 8-)7 FLYING FORTNESS (M) SIM 10 HD 
OPE WOLF 02 DD POLICE mm 05 HD BLUE MAX HD 
PATETAS 01 HO [d0083 QUEST FOR GLORY 11 04 HD E-14 TOM CAT 02 HD 
$0462 OUT OF THIS WORLO (V) 01 HO RISE OF THE DRAGON (MV) 07 HD XENON $0743 F-15 STRIKE EAGLE Us (V) (3) 06 HD 04 HD 
S0078 PANZA KICK BOXER (V) 0 80253 ROBIN HOOD (V] 07 HD ESPORTES E COMPETIÇÃO: 50243 F-16 COMBAT PLOT 02DD Ho 
ROGGER RABBIT il (V) 05 HD ' 50199 F-IIZA STEALTHFICHTER 2.0 (V) 06DD HD 
80192 SPACE m 06 DD 850217 IUTHFRAME BOWLING 0! DD À 50357 FALCON 3.0 M (3) 05 HO MHO 
80267 STAR TREK - 25THANIVERSARY (V) 05 HD 850200 40 BOXING 04 DD E d00/3 FIGHTER BOMBER 0 HD 02 HD 
PERCIA 02 $0716 STAR TREK V - FINAL FRONTER (V) 05 DD 850947 4D SPORT TENNIS (V) 01 HD FLIGHT SIMULATOR 4.0 02 DD HD 
$0822 PRINCE OF PERCIA EDITOR 01HD THE CASTLE OF DR. BEEN 02 HD Ed00s2 ABC WIDE WORLD BOXING (V) O1IHO GREAT NAVAL BATTLE (VI (3) 06 HD 
$0346 PROFECIE OF VIKING CHAD (V) 05DD E$0623 THE IMMORTAL (VI 02 DD [51011 AMÉRICA GLADIATOR (V) 03HD E S0402 GUNSHP 2000 M) 03 TERMINATOR 2029 07 HD 
$1025 RAMBO IN 01 DD 8$0260 THE SECRET MONKEY ISLAND 11 1V) 06 HD [dot32 CALIFORNIA GAMES 4 03 DD LHX ATTACK CHOOPER THE SAMURAI 02HD 
SAGA 02 DD 8 $1102 TIME RIDERS AMERICAN HISTORY (VI04 HD [d0014 CAVEMAN HUGH-LYMPICS 4 DO Mi - TANK PLATOON THE LEGACY TERROR (9) 06 HD 
S0046 RENEGADE 02 DD E StOS] ULTIMA UNDERWORLD M HO 0$1219 DREAM TEAM 05 DD $1344 THELOST VKINGS (V) (3) 01 HD 
$0187 ROAD RUNNER 01 DD ESItoS VEORVICTORY (V) (3) 01 HO 8$0068 FIENDISHFREDDY'S 5DD TORNADO me 03 HD 
dO009 ROBOCOR (DATA WEST) 04 DD [51000 VINGANCE OF ESCALIBUR (V) 02 HO 53 TRISIAN (M 01 HD 
50599 ROGGER RABBIT $0915 WEEN THE PROPHECY (V) 05 HD UNDERWORL D H (V) (3) Ho 
CORRIDAS, CARROS E MOTOS : 1 STUNT ISLANO (V) (3) 06 HD 551234 M 03 HD 
0093 1000 MIGLIAS (V) THE HUNT FOR RED OCTUSER WORKS (V) 04 HD 
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BARCO DE 01 DO WA0214 BAND IN THE 50X (SB) 01 HD 5 40277 IVELIE 01 DD 1000 ICONES 
DISK LABEL GENERATOR 4.20 01 DO BA0O079 POSE 0 AD282 A 1.2 01 DD DAOIZI] AFTER DARK 03 DD 
DISK MANAGER LABELS 02 DD AOIBI A ELETRÔNICA 01 DD 069 ALMANAC 
ENVELOPE LASER 01 DD AQ126 TELEFÔNICA 01 DO BO VIEW 
ras a so prio AD296 AMPLE NOTICE 01 DO 34? BIT FAX FOR WINDOWS 
spas 02 DD Dabeio MAIA RO AUXILIARES LOTÉRICOS! ip a paçd 
LABELS UNLIMITED df 01 HD MAUTIS—AMSICAS- MOL) 9009 LOTTO FEVER 01 DD 
MAIL MONSTER 4 VASICAS F7 D/ A9QI2 LOTTO PROPRET 01 DD 

AOQI6 POLLOT 00 

PROGRAMAS ANTI-VÍRUS : 

AD419 SCAN ANTEVIRUS V;9,17 v106 01 DD 

AO417 TBAVY 6.08 01 DD 

AQO77 VIRUS SAFE 4.07 DD 

COPIADORES : 

AO267 DISK DUPE 4.01 01 DO 

0426 VGA COPY PRO (VM) 01HD 

AW015 XENOCOPY 91 DO 

FORMATADORES ESPECIAIS : 
AD298 BENCHMARKS. | ADI4S GOO 91 DD 

AD046 EASY FORMAT -01DD 

AD332 FD-READ 1.68 01 DD 

AQ06S FORMAT & COPY MASTER 

AVO6S MAX FORMAT 























CHEX 
A0235 CONTROLE DE ESTOQUE 01 DO 
EDUCATIVOS : AUDIO U 01 DD 5 A0123 EASY INVENTORY 01 DD 
CADASTRO DE PROGRAMAS 01 DD [ A0124 ESTATISTIC CONSULT 01 DO 
A0272 ABC FUN KEYS DATA BASE PUBLISHER 01 DD E A0268 EXTOK 2.09 01 DD 
ABC TALK DATA BOSS 02 DD E AD4IS CENESIS 2.1 01 DO 
AOO42 ATLAS PC DATA PLUS 01 DD 
AO364 DBASE M- ROUTINES (Auxiliar) 04 DD 
DB PROG (Auxiliar) 01 DD 
AO002 DISK BASE 9! DD 











MIS BITFAX SR 3.9 

AOO3S BIT FAXMODEM 3.7 

40394 BIT COM DELUXE 5,3 
»M ICIC-LAN 


AD361 DISK CATALOGING PROGRAM 01 DO 
AQUI] EXPRESS CHECK A DD 


PC- 
0030 PRIVATE BOOKKEPEER 














e 1-> Na compra de cada 10 Disquetes você ganha 1 Disquete DD Gravado ; 

P romo ÇÕES 2-> Ou à cada 15 Disquetes vota ganha 1 Disquete HD Gravado ; 
d. M A “ 3-> Compras Acima de 30 discos HD você paga com 2 Cheques (1 no Ato + 1 para 15 Dias) ; 

O es : 4-> Se Nesta Edição da Revista você encontrar alguém de São Paulo que Venda Mais Barato, Nós Cobrimos a Oferta !!| (Confira as Validades 
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Bits & Bytes 





OFICINAS DE SOFTWARE, 
NOVIDADES DA ACTIONSOFT 


A Actionsoft, primeira empresa brasileira FULL SOLU- 
TION em treinamento, consultoria e distribuição de bibliotecas 
para plataforma Windows, começa o ano oferecendo um tipo de 
serviço inédito no mercado nacional. São as Oficinas de Soft- 
ware, destinadas a aumentar a produtividade dentro das 
companhias, a partir do aprimoramento profissional na utilização 
do MS-Windows e seus aplicativos. 

A exemplo do que ocorre em outros setores, onde esta prática 
objetiva o aperfeiçoamento técnico e o ganho de desempenho 
dos profissionais, as oficinas de software pretendem eliminar 
hábitos improdutivos que reduzem a perfomance do usuário, 
explica Carlos Henriquew Mora, diretor da divisão de treinamento 
da Actionsoft. Segundo ele, na migração do ambiente MS-DOS 
para o MS-Windows ou mesmo no upgrade de seu aplicativo 
preferido, muitas vezes o usuário repete os mesmos passos 
assimilados anteriormente, sem perceber que o aplicativo já 
otimizou tais procedimentos. “Desavisadamente, porêm, ele 
continua a percorrer o caminho mais penoso para executar um 
comando ou uma função. 

INTELLISENSE - Adotar hábitos improdutivos não é 
exclusividade dos usuários brasileiros. Conforme Mora, eles 
resultam da autoconfiança do profissional em operar esses 
aplicativos, com os quais convive produtivamente há muito 
tempo. Por este motivo, ele nem sequer percebe que acumula um 
número razoável de hábitos improdutivos e, em alguns casos, 
sente-se ofendido com simples comentários construtivos”, avalia 
Mora, que possui mais de 10 anos de experiênciaem treinamento. 
Por isso, estamos lançando as oficinas de software, que 
entendemos como a forma mais saudável de corrigir defeitos e 
até mesmo de reciclar produtivamente usuários em várias áreas 
de atuação profissional.” 


APRENDA INFORMÁTICA 
SEM SAIR DE CASA 


CURSO RÁPIDO, ECONÔMICO E EFICAZ 


Sistemas de Apostilas. Basta seguir Os 
exercícios treinando diretamente no seu PC 


COMANDOS TRADUZIDOS PARA NOSSO IDIOMA 


Acompanha disquete 5 1/4" com Exercícios 


Estou enviando para Ricardo Flores, cheque 
cruzado e nominal à AUDIT SYSTEM SERVIÇOS 
LTDA., CAIXA POSTAL Nº 25096 - RIO DE 
JANEIRO - CEP 20552-970 no VALOR TOTAL DO 
PEDIDO já incluídas as despesas postais. Tel (021) 
571-5903 































TS SHARA ENCERRA 95 COM 
CRESCIMENTO DE 53% 






ATS Shara, fabricante de no-break e estabilizadores, esta 
no mercado de informática a apenas 3 anos e ja atinge de 
maneira competitiva algumas fatias deste mercado, 
registrando o ano de 93 um crescimento real de 5 0%. 

Para este próximo ano a empresa tem como objetivo 
dobrar este crescimento, e para atingir esta meta, ela esta 
com planos de envestimentos em 4 áreas importantes. 

DJoint-venture com empresa de Taiwam, com objetivo de 
transferência de tecnologia, a nível de no-break inteligente; 

2) Investimento de cerca de US$ 150 mil em auto- 
transformadores; 

3)Lançamento de linha compacta e econômica de short 
break de alta tecnologia e alta qualidade, de custo reduzido, 
altamente competitivo com tecnologia PWM. 

4)Exportação de no-break e estabilizadores para paises 
do mercosul, preparando a TS Shara para o mercado 
internacional. 

Os produtos da TS Shara são comercializados por 
distribuidores de porte: Alcatéia, Sidapis, US Computer, 
SND, Officer, Sonic Dealer e outros. 


Para as empresas interessadas em divulgar seus 
produtos ou eventos na seção Bits & Bytes da revista 
Micro Sistemas, bastaescrever para Enter Press Editora, 
Rua Washington Luis - n.9 - Rio de Janeiro - RJ - 
CEP:20300-900, enviando um release explicativo deseu 
produto ou serviço, é aguardar a sua publicação. 





INDI DATORTO 
TABELA DE PREÇOS 


- MS-DOS 5.0 

- WordStar 5.0/6.0 

- Lotus 123 

« Quattro Pro 

« dBase III Plus Interativo 

« dBase III Plus Programado 


[]US$22.00 [85% 
[]US$22.00 [88 
L] US$22.00 [8 
LI US$22.00 

[] US$22.00 

[] US$22.00 


« Clipper 5.01 Básico 
- Ventura Publisher- Edit. Eletrônica 
« Windows 3.1 


ASSINATURA... s cc ireereertearerreeerr rece meranecracaneenenerennaanseneneenta 





TONELADAS de 
SHAREWARE !! 


Os últimos lançamentos internacionais. 





& Os melhores programas de SHAREWARE disponíveis no mercado intemacional, agora podem ser adquiridos aquino Brasil em pacotes (MEGA-SHARE). 
x Cada pacote é formado por uma coleção de diversos programas de uma mesma categoria. 4 Esta modalidade de distribuição têm obtido enorme sucesso 
na Europa e Estados Unidos, por permitir aos usuários a obtenção de uma enorme quantidade de programas por baixissimo custo. * A FREE SOFT, pioneira 
nesta modalidade de distribuição aqui no Brasil, frequentemente lança novos pacotes de programas com as últimas novidades para DOS e WINDOWS*. 





Veja um exemplo &” Adquirindo um de nossos pacotes para WINDOWS? (ao custo de U$ 25.00 - contendo 50 programas), você encontrará certamente 75% 
ou 80% de programas que lhe agradem, os quais você continuará utilizando. Mas dependendo do seu gosto, pode ser que encontre apenas 15 programas 
do seu agrado. Adquirindo estes mesmos 15 programas de um distribuidor comum, pelo preço de US$ 3.00 por programa, você estará gastando US$ 45.00, 
e possivelmente ainda terá alguma despesa adicional de frete! O Nós da FREE SOFT, não trabalhamos como alguns distribuidores, que cobram o mesmo 
preço por discos que contém um pequeno programa e 300 Kb de espaço livre! Todos os nossos pacotes são distribuidos em discos de 54 e 34 HD. 
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WordPerfect - versão 6.0 
Shelley O'Hara 

Tradução:Altair Dias Caldas de 
Moraes 

Editora Campus Ltda. 
245 páginas 


Os usuários iniciantes que 
desejam estar aptos e seguros 
para usar o wordperfect, 
encontrarão neste livro tudo O 
que precisam paracriar qualquer 
tipo de documento e aproveitar 
todos os recursos de um dos 
mais conhecidos programa de 
processador de textos do 
mundo. 

Como nos outros livros da 
série, a autora começa pelo 
básico, explicando cada termo, 
cada conceito, gradativamente, 
até incluir os recursos usados 
com mais frequência. 

O leitor pode iniciar a leitura 
no ponto em que acha mais 
conveniente, aescolha podeser 
começar pelos exercicios; pelas 
ilustrações antes e depois, 
mostrando como fica a tela do 
computador antes e depois das 
etapas numeradas na seção de 
tarefas; ir direto à seção de 
tarefas, que explica 
detalhadamente como usarcada 
uma delas; memorizar o texto 
em negrito para aprender quais 
teclas precionar; ler primeiro só 
sa explicações para entender o 
que acontece durante um 
determinadopasso. 

Não importa qual o método 
escolhido pelo próprio leitor, o 
resultado será sempre um 
aprendizado rápido e seguro. 
| Editar um texto; Verificar 

ortografia; Recuperar um texto 
apagado; Mover-se rapidamente 
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ao longo do documento; Fazer 
alterações no formato; Mudar a 
impressãodo texto. 

Estas são algumas das 
inúmeras funções do 
woardperfect, e estarsão apenas 
algumas das muitos vantagens 
que os leitores irão dominar no 
aprendizadodoword perfect para 
DOS. 





Autocad Avançdo - Versão 12 
Robert M. Thomas 

Tradução: Sávio Pareschi 
Editora Campus Ltda 

508 páginas 


AutoCad o programa de 
computador mais usado pelos 
desingnes, desenhistas, indus- 
triais e arquitetos antenados 
com ofuturo - apresentado, 
agora, para quem desejairainda 
mais longe na qualidade e 
produtividade de seus desenhos 
profissonais. Trata-se de umguia 


abrangente, um tutorial de fácil 


compreenção, para aumentar a 
produtividade do autocad utili 
zando as linguagens AutoLISP e 
Advanced Development System 
(ADS) - mesmopara quem não 
tem muita experiência com o 
AutoCAD. 

O objetivo principal deste livro 
e dar asas a imaginação do 
leitor e fazer com que ele reflita 
sobre suas necessidades e os 
passos necessários para criar 
características, comandos e 
rotinas inteiramente originais. 

Com ele, aprender a 
personalizar um programa 
AutoCAD torna-se um inves- 
timento rápido e fácil, comtodas 
as vantagens decorrentes disto, 
como, automatizar as rotinas e 
funções mais utilizadas. 





São apresentadas discus- 
sões completas sobre requisitos 
de software e hardware; o ciclo 
de desenvolvimento em ADS, 
do pseudoçódigo ao produto fi 
nal; tipos de dados e constarites 
simbólicas; o valor dos arquivos 
de cabeçalho da ADS. 

inclui ainda a cobertura 
completa de outros tópicos 
avançados, como: 

tipos de linhas e padrões de 
hachura personalizados; Uti- 
lização de formas e fontes; 
Quadros dediálogo progra- 
máveis. Ao longo do texto, dicas 
especiais ensinam como evitar 
e solucionar os erros e ar- 
madilhas mais comuns. 





Salvo pelo C++ 
Kris Jamsa 
LTC Editora 


272 páginas 


O JIivro ideal para 


programadores iniciantes ou. 
experientes que estão passando - 


doC para o C++. Este livro 
contêm intruções passo a passo 
fáceis de seguir, ilustrações e 
programas de exemplo que 
tornam leve e divertido o 
aprendizado do C++. 

Começando da estaca zero, 
você aprenderá como: 

Criar seus primeiros 
programas em C++; 

Ensinar aos programas como 
repetir comandos específicos ou 
tomar suas próprias decisões; 

Exibir saída para atela e ler 
entrada do teclado. 

São licõôes curtas e 
concentradas que apresentam 
conceitos-chave de 
programação, não exigindocada 
uma delas mais de 10 minutos 
de seutempo para assimilação. 





FoxPro for Windows 
Antônio Geraldo da Rocha Vidal 
LTC Editora 


684 páginas 


O FoxPro for Windows é um: 
software gerenciador de banco 
de dados, totalmente compatível 
com o dBase Ill, que permite 
criar e organizar coleções de 
dados (ou arquivos), com a 
finalidade de processos para 
gerar informações. Utilizando o 
FoxPro for Windows você pode 
criar e utilizar rapidamente 
aplicações com arquivos de 
dados das mais variadas 
naturezas, conforme a sua 
necessidade de armazenar e 
gerar informações. 

O objetivo deste livro é 


. fomecerconhecimantos básicos 
"aos profissionais de micro 


informática que desejam 
conhecer o FoxPro for Windows, 
habilitando-os a desenvolver 
sofisticados sistemas 
aplicativos para o ambientewir 
dows, utilizando a tecnologia de 
banco de dados. 

Com ele você vai aprender a: 

Criar, atualizar e ordenar 
arquivos de dados, incluindo, 
alterando e excluindo registros; 

Projetar e construir 


- automaticamente telas de 


entrada e edição de dados, 
contendo todos os recursos do 
ambiente windows (janelas, 
menus, botões, figuras e etc.); 

Relacionarvarios arquivos de . 
dados para obter informações 
complexas e elaborar cálculos e 
estatísticas sobre os dados 
neles armazenados. 
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DOOM  H10URV 5/12URV 


O jogo do ano! Muita ação e estratégia em 
sensacionais gráficos em 3D! Em 3 discos HD. 





TONE HALLOWEEN HARRY 5 URV 


O mais novo lançamento da empresa Apogee. Para quem gosta de jogos com muita emoção. 
Um jogo alucmante! Em 2 discos 3 1/2 HD. Uma tremenda caça às bruxas! 1 disco 3 1/2 HD. 
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MONSTER BASH H'3urv G 5SURV 


Salve seus amigos no cemitério. Mas cuidado com 
os monstros e os fantasmas! Em 1 disco HD. 


i | ” Pope m 
HOOTING 


Transforme o seu PC num autêntico stand de 
tiro! Em disco de 5 1/4 ou 3 1/2 HD. 


ma o. 






DUKE NUKEN H3urv&G]5uRrv 


Outro sensacional “arcade” da Apógee Software! 
Imperdível! Em 1 disco de S 1/4 ou 3 1/2 HD, 
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VISUAL PLAYER H 3 urv G 5 URV 





NEOPAINT  3urv G5URV 


Tremendo editor gráfico para DOS. Excelente 
para editar fotos “scanneadas”! Em 1 disco HD. 











Simplesmente o melhor programa para executar 
arquivos musicais “.MOD”! Em 1 disco HD. 


Um programa poderoso e simples de se usar! 
Ideal para desenhos de projetos! Em 1 disco HD. 











É isso aí. Acredite se quizer! O seu PC agora pode rodar os programas criados para os MSX! 
Sem nenhum hardware adicional, apenas com este programa, poderão ser executados jogos como 
| | Knightmare, The Goonies, Hyper Rally, Road Fighter, Sky Jaguar, Rollerball, Galaga, etc... 

Ea = Uma super exclusividade importada pela Nemesis Informática! 
Hrstereptioo RH ATENÇÃO: O MSX Emulator 1.0b requer micro IBM/PC 386 ou superior com placa VGA. 


mM 8 URV 10 URV 









GRÁTIS: Vários jogos para você testar seu Emulador!!! 







SHAREMANIA Shareware & Public Domain Software for IBM/PC 


Para pedir pelo correio, envie vale-postal ou cheque nominal à NEMESIS INFORMÁTICA LTDA. - Caixa Postal 4.583 Cep 20.001-970 
Rio de Janeiro - RJ. Ou venha ao nosso "Show-Room" na Rua Sete de Setembro, 92 sala 1.203 - Centro - Rio de Janeiro - RJ. 
Conheça nosso sistema de vendas por telefone: (021) 242-0348 - FAX (021) 242-4760. Solicite nosso catálogo completo com novidades! 
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Imagens no Windows 


Se existe um meio através do qual podemos transmitir mensagens, 
emoções e desejos, este meio é a IMAGEM... E vamos ver como 
armazenê-las e/ou gerá-las no Windows. 


Cleuton Sampaio de Melo Jr 
=". ss 


Você já deve ter reparado na enorme quantidade de 
padrões de arquivos gráficos, não? Veja bem: PCX, GIF, TIF, 
DRW, GRF, HGR, PIC etc. Cada fornecedor de software criou 
seu próprio padrão e o implementou no mercado. Isto é coisa 
comum no ambiente DOS, pois ele não tem como 
preocupação a padronização de formatos. O Windows, que 
se propõe a oferecer padrões para tudo, possui 2 formatos 
básicos de arquivos gráficos: O Bitmap (*.BMP ou *.DIB) e 
o Metafile (*.WMF). Existe um terceiro formato, chamado 
“Run Length Encoded” ou RLL, mas que não é muito utilizado 
pelos aplicativos. 

O que quero, nesta edição, é mostrar como o Windows e, 
por conseguinte, o VISUAL BASIC trabalham com imagens, 
e como você pode tirar proveito disto. 


ARQUIVOS GRÁFICOS 


Um arquivo gráfico é um conjunto de bytes que define uma 
imagem do vídeo. Existem básicamente 2 modos de se 
trabalhar com imagens: Raster ou Vetorial. Vamos estudar 
os conceitos envolvidos nestes dois modos de desenho. 

Imagens Raster são formadas por várias linhas, formadas 
por elementos individuais chamados PIXELs (será que tem 
algo a ver com o Bob Pixel?). Um PIXEL é um ponto da 
imagem, e pode ser formado por um ou vários Bits. 
Antigamente, nos velhos monitores CGA, usava-se muito a 
alta resolução gráfica, que era composta de 200 linhas com 
640 pixels em cada uma, sendo definidos apenas 2 
estados: aceso (1) e apagado (0). Um arquivo Raster seria, 
então, formado por um conjunto de bits representando o 
estado da memória de vídeo (16 KB). Hoje, com o advento 
do VGA e SVGA, a coisa complicou um pouco e veremos 
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como é um arquivo Raster mais adiante. 

Imagens Vetoriais são diferentes. Ao invés de representar 
binariamente a área de vídeo, as Imagens Vetoriais são 
formadas por uma série de comandos gráficos, que são 
executados para se criar o desenho final. 

Podemos comparar, grosseiramente, com o antigo 
GWBASIC desta forma: 


IMAGENS RASTER - geradas pelos comandos PSET, LINE 
etc, e tradadas pelo GET e PUT. 


IMAGENS VETORIAIS - geradas por comandos DRAW. 


A principal diferença entre arquivos Raster e arquivos 
Vetoriais é o tamanho. Um arquivo Raster, por representar 
a imagem pixel a pixel, é sensivelmente maior. Já um arquivo 
Vetorial requer pouco espaço, pois ele indica como reconstruir 
as imagens. 

No ambiente Windows o formato Raster é reconhecido 
nos arquivos com extensão BMP, e o formato Vetorial 
(somente do 3.1 em diante) nos arquivos com extensão 
WMF ou “Windows Metafile Format”. 


O FORMATO RASTER / BMP 


O formato BMP é o mais simples de todos e é composto 
por uma série de linhas formadas por pixels. No antigo CGA 
monocromático, tinhamos 41 bit por pixel, e sua informação 
era ligado /desligado. Suponha a seguinte imagem: 


«E. Linha 4: 0001000 
*.. Linha 2: 0010100 
*. Linha 3: 0100010 
RN * Linha 4: 1000004 
***+*** [inha 5: 1111111 





*.....* Linha 6: 1000001 
*.....* Linha 7: 1000001 


Desta forma teríamos, em tese, um arquivo gráfico para 
um dispositivo monocromático. 

No Windows trabalhamos com dispositivos VGA e Super 
VGA, que exibem várias cores ao mesmo tempo. Então 
precisaremos representar cada pixel com a cor que deverá 
aparecer no vídeo. Desta forma serão necessários mais de 
um bit por pixel. À tabela abaixo dará uma idéia a respeito: 

Monocromático 1bit 2cores 

VGA 16 cores 4bits 16cores 

VGA 256 cores 8bits 256 cores 

Super VGA 16 bits 32.768 cores 


O Windows funciona normalmente no formato VGA de 16 
cores, mas você pode mudá-lo para VGA 256 cores ou para 
Super VGA, desde que tenha o driver correto para sua placa 
de vídeo e monitor. 

No formato básico VGA, cada pixel é composto por 4 (VGA 
16 cores) ou 8 bits (VGA 256 cores). Só que o valor indicado 
não é a própria cor, mas um índice para encontrar a corcerta 
na PALHETA que estiver ativa. A Palheta é uma tabela que 
define a composição de VERMELHO, VERDE e AZUL para 
cada tonalidade desejada. Se temos VGA comum, a tabela 
terá 16 tipos de tonalidade, cada uma representando uma 
combinação das cores básicas. É possível alterar a palheta 
ao nosso bel prazer, como podemos constatar no PAINT- 
BRUSH e em outros programas gráficos. 

Os pixels são divididos em quatro planos, e a cor será 
determinada pelos valores dos bits de cada plano. Um 
exemplo: 


PERSPECTIVAS PARA 94 


Há muita coisa “rolando” por ai, porém destaco como 
principais novidades de 94 o “0S/2 for Windows" daiBMe o “Chicago” 
da Microsoft. 


0 08/2for Windows é mais uma prova de que a IBM, apesar de estar 
desenvolvendo outros sistemas operacionais, não vai deixar “mole” 
para a Microsoft, abandonando o 0S/2. Como pode ser possível um 
05/2 para Windows? Será apenas um DEMO do 08/29? Será possível 
trabalhar com ele exatamente como faríamos com o 0S/2 puro? Bem, 
estas questões eu só poderia responder, com certeza, após realizar um 
teste do produto... mas eu posso tentar explicar o que a IBM oferece 
com este pacote. O 05/2 roda software DOS, Windows e 0S/2, e ele 
faz isto porque tem os três ambientes embutidos, pagando royalties 
para a Microsoft pelos dois produtos. A IBM resolveu oferecer então, 
para quem já tem DOS e Windows, apenas o módulo do 0S/2, o que 
permite ao usuário DOS e Windows rodar aplicações 0S/2 e utilizar sua 
WORKPLACE SHELL (interface gráfica) que é, reconhecidamente, melhor 
do que a do Windows 3.1. O preço do produto aqui é de cerca de US$ 
80,00, mesmo não sendo uma pechincha, já chega a atrair o público 
como eu, que tenho DR DOS e Windows 3.1. 

O Chicago é, na verdade, o Windows 4.0. Ele é o verdadeiro 
concorrente do 0/2, pois é um sistema operacional de 32 bits, com 
multitarefa preemptiva (o sistema gerencia o tempo dado às aplicações). 
Além do mais, deverá ser um software cliente universal de redes, o que 
quer dizer que funcionará de maneira satisfatória nas redes mais 
conhecidas, apesar da Microsoft estar investindo pesado na sua 
própria rede, tendo o Windows NT Advanced Server como gerenciador. 





PLANO  PIXEL1 PIXEL2 PIXEL3 PIXEL4 
1 O 1 0 1 

2 O O 1 1 

3 O 1 O 1 

4 O) O 1 1 

COR (O) o 10 15 


Então, temos os valores para cada pixel do gráfico: 


Pixel 1:0 
Pixel 2:5 
Pixel 3:10 
Pixel 4: 15 


Em um sistema VGA 256 cores, teríamos 8 planos para 
cada pixel, ou 8 bits. Note que estes valores dos pixels não 
representam diretamente uma cor disponível na placa de 
vdeo, mas apenas uma cor da Palheta, que irá traduzir a 
quantidade de VERMELHO, VERDE e AZUL necessária para 
mostrar o pixel. 

O Formato do arquivo BMP é simples, e bastante 
semelhante ao formato do GET/PUT do GWBASIC. Uma 
figura de 16 x 4, ou seja: 16 pixels de largura por 4 pixels de 
altura, seria gravada como um array de 16 pixels por 4 pixels 
por 4 planos de cor. Se usarmos VGA 16 cores teremos 128 
bytes, e se usarmos VGA 256 cores teremos 336 bytes por 
uma imagem tão pequena... 

Podemos gerar figuras no formato BMP com o PAINT- 
BRUSH, que vem com o Windows. O formato BMP é utilizado 
pelo Windows em ícones, Cursores e Panos de Fundo. No 
VISUAL BASIC podemos utilizar este formato nas Picture 


O Chicago deverá rodar diretamente na máquina, sem ter o DOS por 
baixo, mas poderá ainda executar softwares DOS. Ano passado ouv;, lá 
em Atlanta, o meu amigo Bill (Bill Gates) falar rápidamente (e timidamente) 
sobre o Chicago, pois a estrela do evento era o Windows NT, mas ele 
sempre deixou claro que o NT não iria concorrer diretamente como 0S/ 
2, pois seu alvo era o mundo UNIX. Espera-se o seu lançamento para o 
final de 94/início de 95, pois só agora estão começando a aparecer as 
primeiras cópias ALFA do produto. 

Mas as perspectivas para 94, no ambiente Windows e 0S/ 
2, apontam para um mercado indeciso... Temos o NT, o Windows for 
Workgroups, o 08/2 2.1 (espera-se novo release em breve!), ou seja: 
novas plataformas e poucas novidades. A maioria dos softwares para 
Windows foi escrita na versão 3.0 (16 bits), sendo portada para as 
versões seguites. Somente agora estão aparecendo softwares 
desenvolvidos (ou reconstruídos) em versão 32 bits para o NT. Coisa 
semelhante ocorre como 0S/2, cujos principais aplicativos foram feitos 
ainda na versão 1.3. Ano passado foi de grandes lançamentos, este ano 
será de consolidação dos mesmos. 


NOVIDADES PARA O WINDOWS 


Temos algumas novidades, uma é o 0S/2 for Windows, já 
mencionado, e a outra é o ACCESS 1.1 Distribution Kit. De maneira 
semelhante ao FOX PRO, a Microsoft criou um “Compilador” de Bancos 
de Dados ACCESS, que permite a utilização de aplicativos sem que o 
usuário possua o próprio ACCESS. Segundo informações, ele tem um 
RUNTIME que lê o Banco de Dados (MDB) e permite a execução de 
macros, formulários, consultas e relatórios. Infelizmente só existe para 
a versão 1.1. Agora está eliminada a última barreira para que se 
desenvolvam aplicações comerciais com o ACCESS. 
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SOLICITE COPIA DEMONSTRATIVA 


BOX e como Background dos formulários, conforme a fig. 1. 
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Além de seu grande tamanho, as figuras BMP não podem ser 


esticadas/encolhidas sem afetar a qualidade da imagem que | 


formam. Usamos este formato para desenhos, fotografias ou 
qualquer outra imagem que não possa ser descrita com comandos 
da GDI do Windows. 


O FORMATO VETORIAL / WMF 


Este formato é relativamente novo e é proprietário do ambiente 
Windows. Existem no mercado vários formatos que suportam 
Metafiles, inclusive mesclando-os com imagens Raster. O formato 
vetorial é muito utilizado por programas gráficos, especialmente 
na área de editoração eletrônica. O Metafile não é um desenho, 


GENESIS 2.1 


O GENESIS 2.1 é um ambiente de desenvolvimento de relatórios p/clipper 5.1/5.2 6 
compativeis (Summer 87, dBase, FoxBase) eliminando a necessidade de programas 
fontes, compilação, linkedição e aumentando sensivelmente a produtividade. 


Composto de módulo objeto compatível com o clipper 5, podendo ser linkeditado e 
distribuído juntamente com seus sistemas desenvolvidos em Clipper 5; e de módulo 
executável compatível com qualquer versão do Clipper, dBase, FoxBase e similares. 


CARACTERÍSTICAS 


Reduz em até 90% o tempo de confecção de relatórios simples e até 70% de relatórios sofisticados, 


* Gerencia até 250 arquivos (de todos os tipos) abertos simultaneamente, 


« Controle de alinhamento horizontal e vertical totalmente livre, permitindo ao usuário desenhar seu lay-out como 


desejar (etiquetas, cheques, notas fiscais, boletos bancários, etc.), 
- * Controla até 9 níveis de quebra e subtotais; 


-* Permite criar Índices internamente no GENESIS ou aproveitar índices já prontos do seu sistema, 
* Permita filtros e ralacionamentos de forma idéntica ao Clipper ou controlados pelo usuário como em um 


programa tradicional; 


* Aceita qualquer expressão válida em Clipper como campo de impressão, inclusive funções do usuário, macros 


code blocks, objetos, etc; 


« Permite controle total de arquivos através das funções do Clipper 5, como dbSeek (), dbSelecArea(), dbSet- 


Relation(), etc, possibilitando os mesmo recursos de um programa tradicional, 


t 

1 
« Possui controle dinâmico do fluxo do relatório através de comandos &IF.. FELSE%... 4ENDIF e 4GOTO...HCASE - Lin 
possibilitando gerenciamento dinâmico da impressão para relatórios sofisticados ou específicos; 


* Possui senhas para impressão e edição. 


* Permite criar e alterar facilmente drivers de impressoras, adaptando-se a qualquer impressora do mercado. 


Maiores Informações 


CHIPS Micro Informática 
TELS.: (0152) 21-0130 /21-8763 


RUA REINALDO FERREIRA LEÃO, 81 - CERRADO CEP 18055-020 - SOROCABA - SP 
CADASTRAMOS REVENDAS PARA TODO BRASIL 


Desconto de 50% para: | 
Universidades / Escolas 


mas os comandos para se reproduzto posteriormente. A diferença 
é que o programa que irá exibir a figura deverá “entender” o 
mesmo formato de Metafile do arquivo que a gerou. 

Como o formato WMF é padronizado no Windows, muitos 
softwares já o suportam, dentre eles: ACCESS, VISUAL C, VISUAL 
BASIC, WINDOWS DRAW etc. Isto representa uma enorme 
vantagem, pois o formato Vetorial ocupa pouco espaço e pode 
ser reproduzido em tamanhos diferentes, bastando alterar a 
escala do desenho. Existe um Objeto da GDI do Windows, 
chamado METAFILE. Você pode criar um DEVICE CONTEXT para 
ele e usá-lo em operações de desenho, de modo que todas as 
operações realizadas serão armazenadas nele, para posterior 
gravação em disco. | 

Agrande vantagem do uso de Metafiles é a independência de 
máquina, pois um desenho feito em um dispositivo poderá ser 
reproduzido em outro. Além disto, existe a independência de 
software porque os comandos serão executados pela GDI do 
Windows, e não pelo programa gráfico em si. 
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Na figura 2 temos um formulário com 2 IMAGE BOX mostrando 
como o formato WMF é mais flexível. 


COMO OBTER IMAGENS 


Quase a totalidade dos softwares para Windows permitem o 
uso intensivo de imagens. Gráficos, desenhos e fotos podem ser 
armazenados em registros de Bancos de Dados, da mesma 
maneira que o NOME ou CPF de uma pessoa. 

Se você pretende desenvolver aplicações para o Windows, é 
bom ter isto em mente: uma imagem pode valer mais que mi! 
palavras... 

Como obter as imagens? Você pode desenhar, usando 
programas gráficos, pode Digitalizar, usando um Scanner, pode 
importar de vídeo, usando uma placa especial de video ou pode 
utilizar uma biblioteca de CLIPART. 

Vários revendedores de shareware dispõem de excelentes 
bibliotecas, inclusive com fotos coloridas. No caso de querer 
desenhar, existe um programa muito bom, e de custo relativamente 
barato, que é o WINDOWS DRAW, da Micrografx (responsável 
pelo Micrografx Designer). Seu preço é de aproximadamente US$ 
100,00 e vem com uma grande biblioteca de CLIP-ART, dividida 
em vários assuntos. Ele utiliza um formato Eropuai DRW, mas 
pode ler e gravar em WMF. 


NADA COMO O DIÁLOGO... 


Tenho o costume de ler e, talvez, seja um dos poucos que 
acompanham Forum de BBS e a seção de cartas. Por isto, pela 
segunda vez, encontro uma missiva bem interessante. 





FAÇA JÁ O SEU PEDIDO ! 


031-496-6840 


AV. XANGRE-LA, 75 - C125 - BRAÚNAS 


BELO HORIZONTE - MG 
CEP: 31.365-640 











PREÇO POR DISCO (INCLUSO) 


360 DD CR$ 1.020,00 

1.20 HD CR$ 1.580,00 

1.44 HD CR$ 1.840,00 
OBS: PREÇOS VÁLIDOS ATÉ 10/04/94 


O Sidney Provenzano sugere que se crie uma seção com dicas 
de DOS e Windows, e outra com atualidades da Multimídia. 
Sidney, o principal objetivo da seção JANELAS é discutir aspectos 
técnicos, mostrando novidades e informações sobre Windows. O 
que é chamado de “dica” é, normalmente, entendido como 
“macete” ou “truque”, e esta não é a linha seguida por mim. Se 
você reparar, encontrará aqui várias “dicas”, mas todas com a 
sua razão de ser totalmente explicada. 

Aqui estamos explorando e mostrando vários detalhes do 
Windows, utilizando a linguagem que está se revelando como a 
mais popular no mercado: o VISUAL BASIC for WINDOWS. Tanto 
é que estamos, a partir da edição 135, iniciando um curso de VB 
com o Ricardo Flores. 

Se você tem alguma dúvida sobre Windows, 0S/2 ou qualquer 
software destes ambientes, escreva para cá que certamenté 
responderei, por outro lado se tiver algo de interesse poderemos 
divulgá-lo. 

Quanto a criação da seção específica de Multimídia, penso 
que ainda é prematuro, pois o equipamento exigido é muito caro 
(CD-ROM etc), o que restringiria muito o público-alvo. Porém já 
escrevemos vários artigos sobre Multimídia e técnicas 
relacionadas, que você encontrará nos números anteriores. 


Por enquanto é só. Um abraço e até a próxima. 


CLEUTON SAMPAIO DE MELO JR é Analista de Sistemas 
Sênior. 
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UNNATURAL SELECTION OTHO CHESSMASTER 4000 WINDOWS  04HD 
THE BEVERLY HILLBILLIES 02H00 MASTER OF ORION OSHD 
INCA 1 10MD INNOCENT UNTIL CAUGHT O7MD 
TFX TACTICAL FIGHTER EXP  08MD STAR TREK JUDGMENT RITES  11MD 
BLOODNET 04MD ELITE | - FRONTIER 01MD 
UNNECESSARY ROUGHNESS  03MD CAESAR DE LUXE 02HD 
KRONOLOG - NAZI PARADOX  O7MD CYBERACE 06H 
PINBALL FANTASIES 02HD FIELDS OF GLORY 06HD 
WASHINGTON SCENERY FS 5.0 06/HD POLICE QUEST IV 12HD 
LITIL DIVIL O6HD PROTOSTAR 04H 
WINTER OLIMPICS 02HMD BUZZ ALDRIN RACE IN TO SPACE 07M0 
THE ELDER SCROLLS - ARENA 08MD INDYCAR RACING 03MD 
JOHNNY QUEST 02H0 SHADOW OF YSERBIUS OH 
DUNGEON HACK O4HD QUEST FOR GLORY IV OSHO 
TRUMP CASTLE Ill 03H0 THE LOST VIKINGS O1HD 
STARLORD OVHD SIMFARM 02HD 
HIRED GUNS DARK SUN 05M0 
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ALIEN BREED |. 01MD NHL COACHES CLUB FOOTBALL G3MD 
MORTAL KOMBAT 03MD STAR WARS CHESS 14MD 
EPIC PINBALL 02HD ALONE IN THE DARK ll 09MD 
ROBOCOP 3 O4HD JURASSIC PARK | 03MHD 
TONY LA RUSSA BASEBALL || OG/HD SPEED RACER 03HD 
PRIVATEER + SPEECH PACK  G9MHD B WING 01MD 
SHADOWCASTER OSHO BETRAYAL AT KRONDOR O7MD 
WAYNE GRETZKY HOCKEY lil 08H GABRIEL KNIGHT 11M0 
RAGS TO RICHES O7HD SAM & MAX Par 07MHD 

«| SAN FRANCISCO SCEN FS 5.0 O6/HD MIG 29 FOR FALCON 3.0 “GH 
DOGFIGHT AIR DUEL O4MHD RETURN TO ZORK 12HD 
BLAKE STONE 02HD FLIGHT SIMULATOR 5.0 02HD 
TERMINATOR RAMPAGE 06HD LEISURE SUIT LARRY VI 06HD 
EIGHT BALL DE LUXE 02H00 COMANCHE ENHANCED 11MD 
BRAM STOCKER'S DRACULA  G4MD LANDS OF LORE “CAMO 
SIMCITY 2000 - SVGA 02HD COMANCHE MISSION DISK2 - ONHD 
RAC RALLY H - NETWORK O4HD SEAL TEAM 02MD 


RINGWORLD E MUITO MAIS PARA você: 
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TUDO SOBRE WINCHESTER - Parte final 


Na segunda parte de "Tudo sobre Winchester” veremos os 
detalhes técnicos da formatação fisica de discos “chester (ou 


Disco Rígido) 


Laércio Vasconcelos 
o ri =) 


FORMATAR FISICAMENTE um WINCHESTER significa demarcar os se- 
tores de suas trilhas para que dados possam ser gravados. Atualmente os 
WIN-CHESTERS IDE e a maioria dos WINCHESTERS SCSI] são formatados 
fisica-mente na fábrica. Seus manuais trazem indicações como: 


DO NOT LOW LEVEL FORMAT 
FACTORY FORMATTED 


Nesse caso basta fazer o SETUP (se for o caso), a PARTIÇÃO e a 
FORMATAÇÃO LÓGICA. Se o seu WINCHESTER for do tipo IDE, você pode 
parar de ler este fteme passar diretamente ao item “PARTIÇÃO”. Inclusive, 
em muitas situações, é desaconselhável ou proibido formatar fisicamente 
um WINCHESTER IDE. A formatação física é necessária e pode ser feita 
sem contra-indicações nos seguintes casos: 


a) WINCHESTERS MEM 
b) WINCHESTERS RLL 
c) WINCHESTERS de XT, desde que sejam MFM ou RLL 


WINCHESTERS MFM conectados a placas UDC podem ser formatados 
fisicamente através de um utilitário para formatação física existente no 
SETUP dos ATs modernos. WINCHESTERS conectados a placas 
controladoras que possuem BIOS podem ser formatadas através deste 
BIOS. Usa-se então um utilitário do DOS chamado DEBUG, que servirá 
como um mecanismo para chamar o formatador físico gravado no BIOS da 
placa controladora. À seguir veremos como tudo isso é feito. 

O programa de formatação física é totalmente despadronizado devido 
ao fato da IBM não ter definido como deveria ser esse software, o que 
deixou liber-dade aos fabricantes para definirem seus próprios programas. 
Além disso não seria conveniente fixar um padrão pois a tecnologia de 
WINCHESTERS encontra-se em plena evolução. Também não é possível 
desenvolver um programa que formate qualquer tipo de WINCHESTER, 
pois existem cerca de 2.000 modelos diferentes, cada um com suas 
próprias características físicas e padrões de gravação. Se fosse possível 
implementar um programa capaz de realizar a formatação física em todos 
os modelos de WINCHESTER, certamente este programa já faria parte do 
MS-DOS há muito tempo. Existem diversos programas de diversos 
fabricantes que realizam a formatação física. Chamaremos genericamente 
este programa de “FORMATADOR FÍSICO”. 

O problema da formatação física pode ser dividido em duas partes que 
serão abordadas a seguir : 


A) como chamar o formatador físico (carga) 
B) como operar o formatador físico (execução) 


O programa formatador físico pode estar localizado em vários locais 
diferentes: 


14 MICRO SISTEMAS 


a) No BIOS da placa controladora de WINCHESTER 

b) No BIOS da placa de CPU, juntamente com o SETUP CMOS 

c) Em um disquete fornecido pelo fabricante do WINCHESTER ou por 
terceiros 

d) Gravado no próprio WINCHESTER, que já viria formatado de fábrica 
e com o formatador físico nele gravado. 

A carga do formatador físico pode portanto ser feita de várias formas, 
dependendo de onde esteja gravado. 

No caso do formatador físico estar gravado no BIOS da placa contro- 
tadora de WINCHESTER (comum em placas controladoras para XT e as dos 
tipos SCSI, ESDie RLL), não pode ser chamado diretamente pelo DOS, pois 
o DOS só chama programas armazenados em disco. Deve ser usado um 
software que pos-sa chamar programas que já estejam armazenados em 
memória. Um software que possui tal capacidade é o DEBUG, um dos 
utilitários que acompanham o DOS. Deve ser colocado no drive “A” um 
“disquete de BOOT”, juntamente com o programa DEBUG. Procede-se 
então da seguinte forma: 

A>DEBUG 

=C800:5 

Ao ser chamado, o DEBUG coloca na tela o seu discreto “prompt”, que 
é o símbolo “-". O DEBUG serve para realizar várias operações, como 
mostrar e alterar posições de memória, executar um programa passo a 
passo, verificar e modificar os valores dos registradores internos do 
microprocessador, digitar e lis-tar programas em linguagem assembly, ler 
e gravar arquivos ou setores do disco, executar programas localizados na 
memória. No caso, é essa última a operação que desejamos, ou seja, 
executar o programa de formatação física localizado no BIOS da interface 
de WINCHESTER, um programa que já está na memória. Deve ser utilizado 
o comando “G” do DEBUG (GO). É exatamente o que ocorre quando 
digitamos o comando G=C800:5. O DEBUG executa o programa que está 
armazenado no endereço de memória C800:5, que em geral é o endereço 
ocu-pado pela ROM da placa de interface de WINCHESTER. Ao ser 
fornecido esse comando, o DEBUG termina sua tarefa e o controle é 
passado ao formatador físico que faz parte do BIOS da controladora de 
WINCHESTER. Na verdade o DEBUG não formata o WINCHESTER. Serve 
apenas como um utilitário para chamar o formatador físico. A partir daí o 
formatador físico está chamado e vem a segunda parte do problema, que 
é a OPERAÇÃO. Esse problema será abordado logo a seguir. O software da 
placa de interface de WINCHESTER pode estar localizado em DOO0:5 ou 
em D800:5 ou em E000:5, além de C800:5. Esse endereço é selecionado 
por STRAPS na placa de interface. Deve ser consultado o seu manual e 
verificados os STRAPS para a determinação do endereço correto. O próprio 
DEBUG pode ser usado para verificar este endereço. Basta que o DEBUG 
seja chamado e seja usado o comando “D” (DUMP) que serve para mostrar 
o que está armazenado na memáória. Devem ser usados os comandos: 

-DC800:5 
-DDO00:5 
-DD800:5 
-DE000:5 

Cada um dos comandos acima faz com que seja exibida uma sequência 

de 128 bytes armazenados na memória a partir do endereço fornecido, nos 





formatos HEXADECIMAL e ASCII (figura 11). Se for exibida na tela uma 
sequência de bytes com valor “FF” significa que o endereço está errado. 
Se for exibida na tela uma sequência de bytes com valores diversos 
significa que o endereço está correto. Na figura 11 observa-se claramente 
que o programa está em C800:5. 

Muitos fabricantes fornecem, juntamente com o WINCHESTER, um pro- 
grama formatador físico gravado em um disquete. Nesse caso, para 
executá-lo basta colocar o disquete no drive “A” e chamá-lo. As instruções 
para chamá-lo e utilizá-lo são encontradas no manual do WINCHESTER ou 
no próprio disquete, em um arquivo de texto chamado README.DOC ou 
outro nome similar. Por exemplo, os WINCHESTERS da SEAGATE são 
muitas vezes fornecidos com o programa DISK MANAGER, que é fabricado 
por uma empresa chamada ONTRACK. A ONTRACK também possui versões 
do DISK MANAGER especiais para os WINCHESTERS da QUANTUM. Caso 
seu WINCHESTER seja do tipo MFM ou RLL, qualquer formatador físico 
pode ser usado, mesmo que seja de um fabricante diferente. Nos 
WINCHESTERS IDE, SCSI e ESDI, caso seja necessário realizar uma 
formatação física, nunca deve ser usado um formatador físico de outro 
fabricante, pois corre-se o risco de realizar uma formatação física incompa- 
tível com o WINCHESTER em uso. 





A>DEBUG 

"DC800:5 

C800:0000 EB 04 90-E9 B4 12 90 90 E9 Fi 1F 
C800:0010 53 54 31 31 205345 41-47 415445 20535431 ST11 SEAGATE ST1 
(800:0020 31 20 42 49 4F 53 20 52-45 56 49 53 49 4F 4E 20 1 BIOS REVISION 
C800:0030 32 2E 31 20 20 22 28 43-29 20 436F 70 797269 2.1 “C) Copyni 


C800:0040 67 68 a 31 39 38 39-2€ 20 31 39 39 30 2053 ght 1989, 1990 S 
C800:0070 BE F4 OF BA 20-00 OE 07 FC B8 55 AA BE .5..........U.. 
D000:0000 ERR PRRR-RR-RE RE FREE RE RE siuemasaias 

0000:0030 FF FF FF FF FF FF FF FREF FF 


74 
C800:0050 45 41 47 Í 54 45 OD OA-38 FC 55 OE 1F FB BE BO EAGATE..8.U..... 
8 06 
500E 
C800:0080 CO 1F 
DO00:0010 FF FF FF FF FE FF FF FRFF FF FF FE FF FF 
FF FF FF FF 
FF FF FF FF 
D000:0040 FF FF FF FF FF FF FF FEFE FE FF FF FF FF 
RERE RE RE 
FF FF FF FF 
FF FF FF FF 


nequanuança 


º 
C800:0060 14 O BE 14 00 E8-00 10 BE BO 14 ES FA OF ................ 

B 

BBC BB a 

-DDO00:5 
D000:0020 FF FF FE FE FF FF FF FREF FE FF FF FF FF FE FF ........... 
D000:0050 FF FF FE FF FF FF FF FRFE FF 
D000:0060 FF FF FF FF FF FF FF FREF FF 
DO00:0070 FF FF FE FE FF FE FF FF FE FE 
DO00:0080 FFFFFFFFFF 
-DOBOO:5 
D800:0000 FF FF FRFF FF FE FF FE FF FF FF ecc... 
D800:0010 FF FF FF FF FF FF FF FRFF FE FF FE FF FF FF FF a... 
0800:0020 FF FF FF FF FF FF FF FRFF FE FF FE FF FE FE FF a... 
D800:0030 FF FF FF FF FF FF FF FE-FE FF FF FE FF FF FE FE ic... 
0800:0040 FF FF FF FF FF FE FF FRFF FF FF FF FF FE FE FF acc... 
D800:0050 FF FF FF FF FF FF FF FE-FF FE FE FF FF FE FE FF ci... 
0800:0060 FF FF FE FF FF FF FF FRFF FF FF FE FE FF FE FF... 
D800:0070 FF FFFF FF FFFFFFFFFFFFFEFEFEFF FE FE 
D800:0080 FFFFFFFFFF 


DEDE SOnIUNUadas 


[EEE REINER! 


EEE SEER) 


-DEO00:5 

E000:0000 FE FE RPE ER FE FR RE FE PRE usamos 
E000:0010 FF FF FF FF FF FF FF FE-FF FF FE FE FF FF FE FE a... 
E000:0020 FF FF FF FF FF FF FF FE-FF FF FF FE FE FE FF FE .......... 
E000:0030 FF FF FF FF FF FF FF FE-FF FF FF FF FE FE FE FE... 
E000:0040 FF FF FF FF FF FF FF FREF FF FE FE FF FE FF FE is... 
E000:0050 FF FF FF FF FF FF FF FRFE FF FE FF FF FE FE FE co... 
E000:0060 FF FF FF FF FF FF FF FE-FF FF FE FF FE FF FF FF ...c.... 
EO00:0070 FF FF FF FF FF FF FF FF FF FF FF FF FF FF FFFF ........... 

PRRRRERRRR Cc aum 


E000:0080 


fig 11 - procurando o endereço do BIOS da placa controladora 


Além dos programas formatadores físicos do próprio fabricante do WIN- 
CHESTER, existem muitos outros. Por exemplo, o CHECKIT possui a opção 
de formatar WINCHESTER. Esses formatadores de terceiros podem ser 
usados sem problemas, desde que o WINCHESTER seja do tipo MFM ou 
RLL. 

Algumas vezes o formatador físico vem gravado no próprio WINCHES- 
TER. Nesse caso deve-se fazer um BACKUP do WINCHESTER para um 
disquete. Desta forma recai-se no caso anterior, ou seja, o formatador 


físico fica grava-do em um disquete. À única diferença é que o disquete foi 


fornecido pelo usuário. A partir daí procede-se exatamente como foi 
descrito no caso anterior. Não pense o usuário que nesse caso não é 
necessário formatar o WINCHESTER. Muitas vezes apenas uma pequena 
área no início do WINCHESTER vem formatada, apenas o suficiente para 
gravar o formatador físico. O usuário deve fazer a cópia do conteúdo do 
WINCHESTER para um disquete e realizar a formatação física. 


Para facilitar ainda mais o trabalho do usuário, algumas placas 
controla-doras de WINCHESTER são fomecidas com um formatador físico 
de carga auto-mática. Fica gravado em uma memória ROM. Quando o 
computador é ligado, o programa da ROM é automaticamente executado, 
e ao detectar que o WIN-CHESTER não está formatado fisicamente, é 
colocada na tela uma mensagem como: 


O WINCHESTER NÃO ESTÁ INICIALIZADO. DESEJA 
INICIALIZÁ-LO ? 


Em caso de resposta positiva o formatador físico passa a ser executado. 
Nesse tipo de sistema, o usuário pode também realizar a formatação 
através do DEBUG como descrito anteriormente. 

Em muitos ATs modernos existe no SETUP CMOS uma opção para for- 
matação física de WINCHESTER, mas deve ser usada apenas para os 
modelos MFM conectados em uma placa UDC padrão MFM. A figura 12 
mostra a tela de abertura do SETUP da AMI (American Megatrends, Inc.), 
onde pode ser observada a opção “HARD DISK UTILITY”. Para ativála 
basta selecioná-la usando a seta para baixo e teclar ENTER. 


BIOS SETUP PROGRAM - AMI BIOS SETUP UTILITIES 
(C) 1990 American Megatrends Inc., All Rights Reserved 


STANDARD CMOS SETUP 
ADVANCED CMOS SETUP 
ADVANCED CHIPSET SETUP 
AUTO CONFIGURATION WITH BIOS DEFAULTS 
AUTO CONFIGURATION WITH POWER-ON DEFAULTS 
CHANGE PASSWORD 
HARD DISK UTILITY 
WRITE TO CMOS AND EXIT 
DO NOT WRITE TO CMOS AND EXIT 


Standard CMOS Setup for Changing Time, Date, Hard Disk, etc 


ESC:Exit :Select F2/F3:Color F1O:Save & Exit 


fig 12 - tela de abertura de SETUPs modemos da AMI 


Já foi visto como carregar o formatador físico a partir de ROM, de 
disquete, do próprio WINCHESTER, por carga automática ou pelo SETUP 
CMOS. Agora será analisada a segunda parte do problema, que é a 
operação. Uma vez cha-mado o formatador físico, o que acontece ? O 
programa faz tudo sozinho ? Faz alguma pergunta ? Faz várias perguntas 
? Na verdade existem programas de todos esses tipos. 


faz tudo sozinho. 


Esse é o melhor tipo de formatador físico. Não faz nenhuma pergunta 
ao usuário. Ao ser carregado começa logo sem perguntas a fazer a 
formatação. De-cobre automaticamente qual é o modelo do WINCHESTER 
instalado, suas características físicas e todos os parâmetros necessários 
à formatação. 


pergunta qual o modelo do WINCHESTER 


Basta que o usuário responda essa pergunta e a formatação começa. 
O modelo do WINCHESTER é sempre escrito na sua carcaça. Normalmente 
esse tipo de formatador coloca na tela um menu de opções de modelos 
de WINCHESTERS. 


faz várias perguntas 


Esse é o pior tipo de formatador físico, do ponto de vista do usuário. 
Faz perguntas que muitas vezes podem deixar o usuário assustado: 


Qual é o número de cabeças ? 
Qual é o número de cilindros ? 
Qual é o número de setores por trilha ? 
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Pró-compensação foita a partir de qual cilindro ? 
Onde é a zona de estacionamento das cabeças ? 
Qual é o fator de INTERLEAVE ? 

Quais são os setores defeituosos ? 


O usuário não deve ficar assustado com essas perguntas. As respostas 
estão sempre contidas no manual da placa de interface e no manual do 
WINCHESTER. As 5 primeiras são características físicas e dependem 
apenas do mo-delo do WINCHESTER. Normalmente o manual possul uma 
tabela com essas características. No final deste artigo é apresentada uma 
tabela com as características físicas de diversos WINCHESTERS, de 
diversos fabricantes. Essas informações são úteis para a formatação 
física e também para o SETUP. 

O fator de INTERLEAVE é um número inteiro que é dimensionado para 
compatibilizar a velocidade da CPU com a velocidade do WINCHESTER. O 
ma-nual em geral diz para cada tipo de microprocessador e para cada tipo 
de clock qual é o interleave ideal. Os formatadores físicos modemos 
determinam a velocidade do microprocessador e sugerem um INTER- 
LEAVE ideal. Por isso deve-se deixar o computador no MODO TURBO 
durante a formatação, para que o fator de INTERLEAVE seja dimensionado 
para a performance máxima. Existe um programa chamado NORTON 
CALIBRAT que determina o INTERLEAVE ideal para um determinado 
WINCHESTER e refaz a formatação física com este novo fator de INTER- 
LEAVE, sem a perder os dados gravados. Os dados não são perdidos 
porque o CALIBRAT lê uma trilha para a memória antes de reformatá-la com 
o novo INTERLEAVE e regrava seus dados após a formatação. Este 
processo é realizado para todas as trilhas do WINCHESTER. 

Os setores defeituosos também são uma pergunta de fácil resposta. 
Durante o processo de fabricação do WINCHESTER, as superfícies 
magnéticas não ficam 100% perfeitas. Normalmente ocorrem algumas 
poucas imperfeições na camada magnética onde são gravados os dados. 
Na fábrica, cada WINCHESTER é testado e são determinados quais são os 
setores do disco que apresentam defeitos. Os números desses setores 
são impressos em uma etiqueta que é cola-da na carcaça do WINCHES- 
TER, com o nome “BAD SECTOR MAP”. 

Para responder a pergunta feita pelo formatador físico basta digitar os 
dados dessa tabela. Muitas vezes o WINCHESTER vem também 
acompanhado de uma listagem de impressora que contém o “BAD 
SECTOR MAP” para facilitar o trabalho do usuário aliviando-o de ter que 
abrir o gabinete do computador para ler o mapa. Muitos formatadores 
físicos não necessitam que sejam fornecidos os setores defeituosos, pois 
os encontram automaticamente durante a formatação física. Nos WIN- 
CHESTERS modernos o mapa de setores defeituosos é também gravado 
em uma área do WINCHESTER chamada de “CILINDRO DE SERVIÇO”. 
Programas como o DISK MANAGER automaticamente descobrem os 
setores defeituosos acessando o CILINDRO DE SERVIÇO. Mesmo que o 
usuário não deseje fornecer os setores defeituosos, não há problema. Os 
formatadores físicos modemos os detectam automaticamente durante o 
processo de formatação. 

Em qualquer um dos casos, uma vez que o formatador físico já tem 
todas as informações necessárias, começa o processo de formatação que 
em geral dura de 5 a 60 minutos, dependendo da sua capacidade. Essa 
operação finaliza a formatação física. 

Devem ser a seguir executadas as duas próximas etapas, que são a 
partição e a formatação lógica. 


PARTIÇÃO 


A partição deve ser sempre feita após a formatação física. Como sabe- 
mos, um WINCHESTER é um tipo especlal de drive (Hard Disk Drive = HDD, 
as-sim como existe o Floppy Disk Drive = FDD). Particionar um drive de 
WINCHES-TER é definir como será usado a nível de DOS. Por exemplo, um 
WINCHESTER de 80 MB pode ser usado a nível de DOS como um drive *C” 
de 80 MB, ou então como um drive “C” de 40 MB e um drive “D” de 40 MB, 
ou outra combinação qualquer. O WINCHESTER é um “drive físico” e os 
drives “C”, “D”,* E”, “F” etc. são chamados de “drives lógicos”. Particionar 
significa dividir um drive físico em um ou mais drives lógicos. Deve ser 
observado que a partição deve sempre ser realizada, mesmo que Oo 
WINCHESTER seja usado inteiro como um drive "C”. Se executarmos um 
BOOT pelo drive “A” e tentarmos acessar o drive “C”, o DOS colocará na 
tela a seguinte mensagem de erro: 


Invalid drive specification 
16 MICRO SISTEMAS 


MS-DOS Version 5.00 
Fixed Disk Setup Program 
(C)Copyright Microsoft Corp. 1983 - 1991 
FDISK Options 
Current fixed disk drive: 1 
Chose one of the following: 
1. Create DOS partition or Logical DOS Drive 
2. Set active partition 
3. Delete partition or Logical DOS Drive 
4. Display partition information 
Enter choice: [1] 
Press Esc to exit FDISK 





fig 13 - menu principal do FDISK 


Isto significa que o drive “C” ainda não é reconhecido pelo DOS, ou 
seja, existe o drive físico, reconhecido pelo BIOS, mas não o drive lógico. 
Se tentarmos executar um BOOT pelo WINCHESTER antes de realizar a 
partição, o BIOS colocará na tela a seguinte mensagem de erro: 


NO ROM BASIC 
SYSTEM HALTED 


Significa que não foi possível executar o BOOT nem pelo drive “A” e nem 
pelo WINCHESTER, Já que ainda não existe o drive “C” anível de DOS. Essa 
mensagem tem um significado histórico. Os antigos PCs podiam operar 
com uminterpretador residente para a linguagem BASIC. Esse interpretador 
era gravado em uma ROM localizada na placa de CPU. Caso o sistema não 
operasse nem com disquetes e nem com WINCHESTER, era usado o BASIC 
residente. Como os ATs modemos não usam mais esse interpretador 
BASIC, colocam esta mensagem de erro apenas quando não conseguem, 
por alguma razão, executar um BOOT pelo drive “A” ou pelo drive “C”. 

Para fazer a partição usa-se um utilitário do DOS chamado FDISK. 
Coloca-se no drive “A” um disquete com o DOS a ser instalado e com o 
programa FDISK. Digita-se: 


FDISK 


Normalmente usa-se o WINCHESTER inteiro como drive “C”. Como 
essa opção é a mais comum, o FDISK apresenta em seus menus, 
sugestões que, se seguidas pelo usuário (bastando teclar ENTER), farão 
com que o WINCHESTER seja usado inteiro como drive “C”. Ou seja, cnama- 
seo FDISK e tecla-se ENTER 4 vezes. Vejamos o que significa cada ENTER. 
Ao ser chamado, o FDISK apresenta a tela da figura 13. O FDISK sugere 
a opção “1” (criar partição). 


Create DOS Partition or Logical DOS Drive 
Current fixed disk drive: 1 
Chose one of the following: 

1. Create Primary DOS Partition 

2. Create Extended DOS Partition | 

3. Create Logical DOS Drive(s) in the Extended DOS Partition 
Enter choice: [1] 





fig 14 - menu de criação de partições 


Para o FDISK existem dois tipos de partição. A PARTIÇÃO PRIMÁRIA é 
o drive “C”. A PARTIÇÃO ESTENDIDA é o restante do WINCHESTER. Uma 
partição estendida pode ser usada como drive “D” ou subdividida em 
vários DRIVES LÓGICOS(D, E, F....). Ao responder ENTER pela primeira vez, 
estamos instruindo o FDISK para criar uma partição. kl seguir o FDISK 
apresenta a tela da figura 14. 

Ao ser respondido ENTER é selecionada a opção 4 (criar partição pri- 
mária). O FDISK coloca então a tela indicada na figura 15. 


Create Primary DOS Partition 
Current fixed disk drive: 1 
Do you wish to use the maximum size for a Primary DOS 
Partition and make the partition active (Y/N)...? [Y] 
Press Esc to retum to FDISK options 


fig 15 - usando o WINCHESTER inteiro como DRIVE C: 

Ao ser respondido ENTER pela terceira vez, o FDISK usará o tamanho 
máximo permitido para uma partição, que corresponde ao WINCHESTER 
inteiro. Será então colocada a tela indicada na figura 16. 





System will now restart 
Insert DOS system diskette in drive A: 
Press any key when ready ... 


fig 16 - finalização do FDISK 


Coloca-se no drive “A” o disquete do DOS que está sendo instalado, 
aperta-se qualquer tecla e está terminada a operação do FDISK. Fica 
faltando apenas realizar a formatação lógica no drive “C”. 


OBS: No DOS versão 3.30 e anteriores nenhum drive lógico pode ter 
mais de 32 MB. Portanto, um WINCHESTER de 42 MB, por exemplo, teria 
que ser obrigatoriamente dividido em dois ou mais. É comum nesse caso 
dividHo em um drive "C” de 32 MB e um drive “D" de 10 MB. Na versão 
4.01 esse limite foi aumentado para 512 MB, e na versão 5.0 para 2 GB 
(2048 MB). 


Por alguma razão pode se tornar necessária a divisão de um WINCHES- 
TER em vários drives lógicos, ao invés de usáio inteiro como um drive “C”. 
Abaixo estão algumas razões que podem levar a adotar este procedimento. 


a) Usando o DOS 3.0, 3.1, 3.2 ou 3.3 com WINCHESTERS com 
capacidades superiores a 32 M bytes. Aconselhamos a, se possível, 
utilizar o MS-DOS versão 6.0. 


b) Quando um WINCHESTER é usado por duas ou mais pessoas. 


c) Um WINCHESTER pode ser dividido em “C”" e “D”. No drive “C” 
ficariam arma-zenados os programas FIXOS, que não serão alterados, 
como o DOS, editores, compiladores, utilitários e aplicativos diversos. No 
drive *D” ficariam os dados gerados pelo usuário. Dessa forma a operação 
de BACKUP fica um pouco mais fácil, pois os programas do drive “C” já 
possuem BACKUP, que são os próprios discos originais. Basta ao usuário 
fazer BACKUP do drive “D”. 


d) Para facilitar a mudança para novas versões do DOS, pode-se usar 
um drive *C” com cerca de 3 MB, só para o DOS e seus utilitários, e um 
drive *"D” com o restante do WINCHESTER para uso normal. 


e) Quando um mesmo WINCHESTER abriga dois sistemas operacionais 
diferentes, como DOS e UNIX. 


Nesses casos acima, apenas os casos “A” e “E” tomam estritamente 
necessária a divisão do WINCHESTER em vários drives lógicos. 

Vejamos como é o procedimento para dividir um WINCHESTER (drive 
físico) em vários drives lógicos (C, D, E,...). Será ilustrado o exemplo de um 
WINCHESTER de 120 MB que será dividido da seguinte forma: 


Cc: 60 MB 
D: 40 MB 
E: 20 MB 


Estaremos supondo que é utilizada a versão 6.0 do MS-DOS. Para 
realizar esta divisão, o usuário deve executar quatro operações: 


1) Criar uma PARTIÇÃO PRIMÁRIA (drive C) com 60 MB. 

2) Criar uma PARTIÇÃO ESTENDIDA com o espaço restante (60 MB) 

3) Dividir a PARTIÇÃO ESTENDIDA em dois DRIVES LÓGICOS: 
Drive D, com 40 MB 6 Drivo E com 20 MB. 

4) Definir a PARTIÇÃO ATIVA, que deve ser o Drive C. 


Inicialmente chama-se o FDISK e é apresentado na tela seu menu prin- 
cipal, como indicado na figura 13. Seleciona-se a opção 1 (criar partição), 
fazendo com que seja apresentada a tela indicada na figura 14. O drive 
*C” é chamado de PARTIÇÃO PRIMÁRIA e o restante do WINCHESTER, até 
o seu final, é chamado de PARTIÇÃO ESTENDIDA. 

Portanto deve ser selecionada a opção “1”, que cria a partição 
primária. A seguir o FDISK colocará a tela indicada na figura 15, perguntando 
se o usuário deseja usar o tamanho máximo permitido, que é igual ao 
WINCHESTER inteiro. Deve ser respondido “Nº. O FDISK apresentará 
então a tela indicada na figura 17. 


Total disk space is 120 Mbytes (1 Mbyte = 1048576 bytes) 
Maximum space available for partition is 120 Mbytes (100%) 
Enter partition size in Mbytes or percent of disk space (%) 

to create a Primary DOS Partition................ [1.20] 

Press Esc to return to FDISK Options 


fig 17 - definindo o tamanho da partição primária 


Na figura 17 o FDISK pergunta qual é o tamanho desejado para o drive 
*C”. Pode ser respondido em MB ou em porcentagem do total (Ex: 50%). 
O valor DEFAULT é 120 MB, que é o tamanho total do WINCHESTER. No 
nosso exemplo, deve ser respondido 60 ou então 50%. Ao receber um 
número inteiro, o FDISK considera que é o tamanho da partição em MB. 
Se o número inteiro for seguido de “%”, o FDISK considera o tamanho da 
partição como uma porcentagem do total permitido. Ao ser respondido 
*60”, o FDISK coloca a tela indicada na figura 18. 


Creat Primarey DOS Partition 

Current fixed disk drive: 1 

Partition Status Type Volume Label Mbytes System Usage 
ci PRI DOS 60 50% 
Primary DOS partition created 

Press Esc to continue 


fig 18 - criada participação primária de 60 Mbytes 


A próxima etapa é criar a PARTIÇÃO ESTENDIDA, que deve ocupar O 
restante do WINCHESTER. Tecla-se ESC para voltar ao menu principal do 
FDISK (figura 13) e novamente seleciona-se a opção “1” (criar partição). 
É então apresentada novamente a tela da figura 14. Seleciona-se então 
a opção “2” (criar partição estendida). O FDISK apresentará então a tela 
indicada na figura 19. 


Create Extended DOS Partition 
Current fixed disk drive: 1 
Partition Status Type Volume Label Mbytes System Usage 
C:1 PRI DOS 60 UNKNOWN 50% 
Total disk space is 120 Mbytes 
Maximum space available for partition is 60 Mbytes 
Enter partition size in Mbytes or percent of disk space (%) 
to create an Extended DOS Partition.................. (60) 
Press Esc to retum to FDISK options 


fig 19 - criando a partição estendida 

Para criar a partição estendida, basta teclar ENTER e será usado todo 
o restante do WINCHESTER. A seguir o FDISK apresentará a tela indicada 
na figura 20. 


Create Logical DOS Drive(s) in the Extended DOS Partition 

No logical drives defined 

Total Extended DOS Partition size is 60 Mbytes 

Maximum space available for logical drive is 60 Mbytes (100%) 
Enter logical drive size in Mbytes or percent of 

disk space.................iii [60] 

Press Esc to return to FDISK options 


fig 20 - definindo o tamanho dos drives D, E 


Essa tela é necessária pois o FDISK não considera automaticamente 
a partição estendida como drive *D”. O usuário deve indicar se a mesma 
será um drive *D” ou se será dividida em “D”, “E”, etc. No nosso exemplo, 
queremos criar um drive “D” com 40 MB. Basta então responder 40. Será 
apresentada então a tela indicada na figura 21. 


Create Logical DOS Drive(s) in the Extended DOS Partition 
Drv Volume Label Mbytes System Usage 

D: 40 UNKNOWN 67% 

Total Extended DOS Partition size is 60 Mbytes. 
Maximum space available for logical drive is 20 Mbytes 
(100%) 
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Enter logical drive size in Mbytes or percent of 
UISKSDACE css sas estatal ss os abusa [20] 
Press Esc to return to FDISK options 


fig 21 - criando o drive “E” 


Basta então teclar ENTER para criar o drive “E”, ocupando os últimos 
20 MB disponíveis. Fica claro que a partição estendida pode ser dividida 
em diversos drives: “D”, “E”, “F”, “G”, etc. Basta indicar qual o tamanho 
de cada um deles, em MB ou em porcentagem do espaço usado pela 
partição estendida. No nosso exemplo, depois de definir os drives lógicos 
"D” e “E” será mostrada a tela indicada na figura 22. 

Fica faltando apenas voltar ao menu principal e definir a PARTIÇÃO 
ATIVA, que é a partição onde será buscado o DOS durante o BOOT. Deve 
ser usada a partição “1”, ou seja, o drive “C”. 


Create Logical DOS Drive(s) in the Extended DOS Partition 
Drv Volume Label Mbytes System Usage 

D: 40 UNKNOWN 67% 

E: 20 UNKNOWN 33% 

All available space in the Extended DOS Partition 

is assigned to logical drives. 

Press Esc to continue 


fig 22 - drives lógicos criados 


No menu principal do FDISK seleciona-se a opção “2” (set active par- 
tition). Será apresentada a tela indicada na figura 23. 


Set Active Partition 

Current fixed disk drive: 1 
Partition Status Type Volume Label Mbytes System Usage 
C:1 PRI DOS 60 UNKNOWN 50% 

2 EXT DOS 60 UNKNOWN 50% 
Total disk space is 120 Mbytes 
Enter the number of the partition 
you want to make active............... [1] 
Press Esc to return to FDISK options 


fig 23 - definindo a partição ativa 


Muitas vezes o usuário divide o WINCHESTER em mais de um drive e 
esquece de definir a partição ativa. O resultado é que o BOOT nunca poderá 
ser feito com o WINCHESTER, mesmo que o drive “C” esteja com o sistema 
opera-cional gravado. Para solucionar esse problema basta executar O 
FDISK e usar a opção 2. Quando o usuário esquece de definir a partição 
ativa, é colocada a se-guinte mensagem de erro quando for executado um 
BOOT pelo WINCHESTER: 


NO ROM BASIC 
SYSTEM HALTED 


Portanto, não deve ser esquecida a definição da partição ativa. Uma vez 
feita essa definição, está terminada a operação do FDISK. Voltase ao 
menu principal e tecla-se ESC para sair. O FDISK não retorna ao DOS, mas 
executa um novo BOOT. Deve então ser mantido no drive “A” um disquete 
de BOOT. 


FORMATAÇÃO LÓGICA 


A última etapa da formatação do WINCHESTER é a formatação lógica. 
Se tentarmos acessar o Drive C após o uso do FDISK, mas antes de realizar 
a formatação lógica, o DOS colocará a seguinte mensagem de erro: 


Invalid media type reading drive C: 
Retry, Abort, Fail ? 


A>FORMAT C:/S 
WARNING, ALL DATA ON NON-REMOVABLE DISK 
DRIVE C: WILL BE LOST! 
Proceed with Format (Y/N)? Y 
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Formatting G0M 
Format complete. 
System transferred 
Volume label (11 characters, ENTER for none)? 
62914560 bytes total disk space 
122880 bytes used by system 
62792280 bytes available on disk 
2048 bytes in each allocation unit. 
30660 allocation units available on disk 
Volume Serial Number is OD5F-1AF8 
À> 


fig 24 - formatação lógica de um WINCHESTER de 60 MB 


Se isto acontecer, tecle “A” (Abort), seguido de ENTER. Isso ocorre 
porque o Drive C ainda não pode ser acessado, pois falta realizar a 
formatação lógica. Para tal utiliza-se o programa FORMAT.COM. Coloca-se 
no drive “A” o disquete com o DOS que está sendo instalado e comanda- 
se: 


FORMAT C:/S 


O WINCHESTER será formatado logicamente. A opção */S” indica que 
após a formatação lógica o DOS deverá ser gravado no WINCHESTER. Isso 
é importante pois em geral coloca-se o sistema operacional no WINCHES- 
TER para que o BOOT possa ser executado sem a necessidade de colocar 
um disquete no drive “A”. A figura 24 indica o que é mostrado na tela 
durante a formatação lógica. Os valores indicados correspondem ao caso 
de um WINCHESTER de 60 MB. 

Aformatação lógica também dura de cinco a vinte minutos, dependendo 
da capacidade e da velocidade do WINCHESTER. Caso um WINCHESTER 
tenha sido particionado em vários drives lógicos, cada um deles deve ser 
formatado logicamente. Se um WINCHESTER foi particionado em 3 drives 
lógicos, “C”, “D”" e “E”, sendo “C” o drive usado para o BOOT (partição 
ativa), devem ser feitas as 3 formatações lógicas: 


FORMAT C:/S 
FORMAT D: 
FORMAT E: 


O BOOT pode agora ser executado a partir do WINCHESTER. Se duante 
o BOOT existir no drive “A” um disquete como sistema operacional, o BOOT 
será feito a partir do disquete. Caso não exista disquete no drive “A” o 
BOOT será feito a partir do WINCHESTER. 


DIFERENÇAS ENTRE FORMATAÇÃO FÍSICA E FORMATAÇÃO 
LÓGICA 


O processo completo de formatação de um disco qualquer (disquete 
ou WINCHESTER) pode ser dividido em várias operações: 
A) dividir o disco magneticamente em trilhas e setores 
B) particionar o disco (só no WINCHESTER) 
C) gravar tabela de alocação de arquivos (FAT) 
D) gravar setor de BOOT 
E) gravar o inicializar o diretório raiz (ROOT) 
F) gravar o sistoma operacional 
G) marcar na FAT os setores defeituosos, evitando seu uso 
H) gravar o volume 
No caso de disquetes, o próprio programa “FORMAT.COM” realiza 
todas essas operações, exceto a “B”, pois os disquetes não precisam e 
nem: podem ser particionados. No caso do WINCHESTER, o trabalho é 
dividido da seguinte forma: 


Formatador físico : realiza a operação À 
FDISK : realiza a operação B 
FORMAT : realiza as operações C até H 


Após uma formatação física é obrigatória a realização da partição. 
Após a partição é obrigatória a formatação lógica. Entretanto nada impede 
que o usuário, a qualquer momento realize uma formatação lógica, por 
qualquer razão que a faça necessária. Também nada impede que a 
qualquer momento seja alterada a partição do WINCHESTER. Mas antes 








Requisitos: 
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Vídeo VGA / 256 Kbytes 
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A AVENTURA ESTÁ APENAS 


COMEÇANDO 


Prepare-se para uma incrível aventura no espaço, em busca de 
um pequeno planeta azul. O Nautilus é um jogo de estratégia, 
que irá colocar em teste sua habilidade no comando de uma 


espaçonave. 


Características da nave: 
* Controles por mouse 
* Tela de informações 
* Diário de bordo 
* Sistemas de análise 
* Torpedos fotônicos e phasers 
*- Velocidade WARP 
*- Botão de autodestruição 





Aventura 


Forme um grupo de jogadores, pois a PRO KIT 
está lançando sua mais fantástica aventura no reino 
dos jogos inteligentes: um autêntico APG para com- 
putadores. 

O mestre cria os cenários onde acontecerão as 
missões e os jogadores são colocados frente às mais 
diversas situações. Ão terminar uma partida, o mestre 
avalia o desempenho do jogador e, se for o caso, con- 
cede-lhe um talismã de força e conhecimento, que 
poderá ser usado nas próximas missões. 

Os jogadores podem até mesmo juntar suas forças 
para vencer uma missão mais complexa ou para com- 
bater um guardião mais poderoso. 

As missões podem ser simples ou possuir diversos 
níveis de dificuldade, com inúmeros perigos, armadil 
has, guardiães e a temível aparição WAHAMEC - um 
ser etéreo que busca materializar-se em nosso univer- 
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O EDITOR XINGU 

À criação das missões é extremamente simples e 
totalmente comandada por ícones. O mestre pode 
visualizar cada uma das salas do sublerrâneo e 
selecionar até mesmo o tipo de parede que as formam. 

Ão preparar um cenário, o mestre dá a cada 
jogador um disco contendo todo o sistema responsável 
pelo jogo. Ao terminar a missão, o jogador devolve o 
disco para a sua avaliação e então recebe uma palavra 
mágica, que contém todo o seu conhecimento e força. 


Requisitos: 
Micro PC 286/386/486 
Vídeo VGA / 256 Kbytes 
Mouse padrão Microsoft 
Drive de 1.2 Mbytes 


Preço de lançamento: 
US$ 35 


de alterar a partição deve ser feito um BACKUP do WINCHESTER inteiro 
(todos os seus drives lógicos), pois os dados são perdidos quando a 
partição é alterada. Após a partição, obrigatoriamente o usuário deve 
realizar a formatação lógica de todos os drives nos quais o WINCHESTER 
foi particionado. 


O WINCHESTER PURO E O WINCHESTER EM KIT 


Como pode ser visto, o manual do WINCHESTER é muito importante. 
Um WINCHESTER precisa ser adquirido com seu manual, os parafusos e 
o FRAME parafixação no gabinete. Os grandes fabricantes de WINCHESTERS 
vendem caixas com dezenas de WINCHESTERS desprovidos de acessórios. 
É o que é chamado de “BARE DRIVE”. Os revendedores nos E. U. A. 
adquirem WIN-CHESTERS em grande quantidade e providenciam seus 
manuais, FRAME, parafusos, placa controladora, cabos e em alguns 
casos, um software para formatação física e para testes do WINCHESTER. 
Esses revendedores vendem o drive puro (“BARE DRIVE”) ou o KIT 
completo, que é o preferido pelos consumidores. O drive puro é adquirido 
por empresas que montam computadores e já possuem os acessórios 
necessários. Um consumidor que pretende instalar um WINCHESTER no 
seu computador sempre prefere o KIT completo. A figura 25 mostra um 
exemplo de propaganda de venda de WINCHESTERS encontrada em 
revistas americanas. Como pode ser visto, o fomecedor dá ao cliente as 
duas opções. O Kit completo é um pouco mais caro, mas é o indicado para 
o consumidor isolado. 

Ocorre que INFELIZMENTE a grande maioria dos fornecedores de mate- 
rial importado no Brasil compra caixas com dezenas de “BARE DRIVES”. 
É mais barato e também mais compacto, já que FRAME, cabos, placas e 
manuais e dis-quetes ocupam volume. Os WINCHESTERS chegam aos 
consumidores brasileiros puros, sem esses acessórios. Os fomecedores 
no Brasil dão a desculpa de que o manual não existe, já recebem sem 
manual. Isso é uma grande mentira. Basta consultar qualquer revista 
americana para constatar que o WINCHESTER pode ser vendido isolado ou 
em KIT. Por exemplo, é raríssimo encontrar um manual de WINCHESTER 
MAXTOR. Muitos fornecedores afirmarão que esse manual não existe. 
Entretanto a revista americana PC SOURCES de fevereiro de 1992 publicou 
um artigo sobre WINCHESTERS IDE onde elogia os detalhados manuais 
dos WINCHESTERS MAXTOR e QUANTUM. 

A verdade é que existem centenas de fornecedores de material 
importado no Brasil, que são na verdade intermediários entre o usuário e 
algumas dezenas de importadores que trazem material importado em 
grande quantidade. Esses importadores compram por atacado os “BARE 
DRIVES”. O consumidor brasileiro não é muito exigente com a qualidade 
e acaba comprando o WINCHESTER puro. Sem o manual, não é possível 
saber as informações que devem ser fomecidas ao SETUP CMOS. Alguns 
WINCHESTERS trazem essas informações impressas na própria carcaça. 
Nesse caso, o manual não faz falta a princípio. A falta só será sentida 
quando for instalado um segundo WINCHESTER. Muitos usuários ficam 
com 0 WINCHESTER solto no gabinete devido à ausência do FRAME. 
Muitos ficam sem saber as características físicas a serem colocadas no 
SETUP. O usuário deve ter paciência e procurar um fornecedor que venda 
o KIT completo. Se for muito difícil, a solução é exigir uma fotocópia 
(“xerox”) do manual (eles realmente existem, basta procurar), uma cópia 
do disquete de utilitários, caso exista (Ex: SEAGATE DISK MANAGER) e 
adquirir um gabinete que comporte a instalação sem a necessidade do 
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fig 25 - Anúncio de venda de WINCHESTERS nos E.U.A. 
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STRAPS DE WINCHESTERS 


Como em todos os dispositivos encontrados nos PCs, é necessário 
configurar corretamente alguns STRAPS encontrados nos discos WIN- 
CHESTER. A descrição desses STRAPS é encontrada no seu manual. Esse 
estrapeamento diz respeito, principalmente, ao selecionamento entre o 
WINCHESTER 1 e o WINCHESTER 2. Normalmente os WINCHESTERS são 
estrapeados corretamente na fábrica, mas pode ser necessário realizar 
alguma alteração, antes mesmo de realizar sua instalação mecânica. 

Um conjunto típico de STRAPS encontrado em WINCHESTERS MFM, 
RLL e ESDI é mostrado na figura 26. Como pode ser visto, 4 pares de pinos 
de seleção configuram o WINCHESTER como 1, 2, 3 ou 4. As placas 
controladoras de WINCHESTER para PC podem controlar apenas 2 
WINCHESTERS, e o estrapeamento deve ser feito apenas nas posições 
DS1 e DS2. 
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fig 26 - straps de WINCHESTERS MFM, RLL e ESDI 

Para fazer o estrapeamento correto do WINCHESTER deve ser observa- 
da a inversão presente no cabo de controle. Essa regra é resumida na 
tabela abaixo. 


ESTRAPEAMENTO 


CABO COM INVERSÃO CABO SEM INVERSÃO 


WINCHESTER DA 
PONTA DO CABO DS2 DS1. 
WINCHESTER DO 
MEIO DO CABO DS2 DS2 


Quando existe apenas um único WINCHESTER instalado, o mesmo 
deve ser conectado na extremidade do cabo de controle. Se o cabo de 
controle possui inversão o WINCHESTER deve ser estrapeado como 
“DS2”, caso contrário como “DS1”. Se existir um segundo WINCHESTER, 
este deve ser ligado ao conector localizado no meio do cabo de controle 
e seu estrapeamento deve ser sempre “DS2”. 

Os WINCHESTERS SCSI possuem um estrapeamento diferente. Os 
dispositivos ligados a um cabo SCSI recebem um número chamado “SCSI 
ID”, que varia entre O e 7. Em uma instalação com um único WINCHESTER 
SCSI, seu ID deve ser estrapeado como O. Caso seja instalado um segundo 
WINCHESTER SCSI seu ID deve ser estrapeado com outro valor qualquer. 
Tipicamente coloca-se o valor 1. Quanto ao posicionamento no cabo, 
quando um único WINCHESTER SCSI é instalado deve ficar no conector da 
extremidade. Um segundo WINCHESTER ocuparia o conector do meio, mas 
não obrigatoriamente. Ao contrário dos WINCHESTERS MFM, RLL e ESDI, 
no caso da instalação de 2 WINCHESTERS SCSI qualquer posicionamento 
nos conectores é válido. A única restrição é que no caso da instalação de 
um único WINCHESTER deve ser usado o conector da extremidade. 

Os WINCHESTERS IDE também possuem STRAPS para selecionamen- 
to. Ao invés de serem estrapeados como DS1 e DS2, usam a designação 
MASTER e SLAVE. Quando um único WINCHESTER IDE é instalado (na 
extre-midade do cabo) deve ser estrapeado como MASTER. Um segundo 
WINCHESTER IDE a ser instalado deve ser estrapeado como SLAVE. Existe 
um outro STRAP chamado "SLAVE PRESENT” ou “SLAVE INSTALLED”, que 
deve ser posicionado corretamente conforme exista ou não um segundo 
WINCHESTER instalado no cabo. No WINCHESTER SLAVE esse STRAP 
normalmente é ignorado. A tabela abaixo resume o estrapeamento dos 
WINCHESTERS IDE: 





único instalação de dois winchesters 
STRAP winchester primeiro segundo 
MASTER/SLAVE MASTER MASTER SLAVE 
SLAVE PRESENT NO YES YES 


Observe que não foi especificado se MASTER e SLAVE PRESENT cor- 
resondem a encaixar ou retirar os STRAPS. Esse estrapeamento varia de 
um WINCHESTER para outro. Por exemplo, nos modelos SEAGATE ST125A, 
ST138A, STISTA, ST3096A, ST3120A e ST3144A esse STRAP quando 
está encaixado indica que o WINCHESTER é MASTER. Já nos modelos 
ST1090A, ST11264A, ST1133A, ST1162A, ST1186A, STI201A € ST1239A, 
o STRAP retirado indica MASTER. O manual do WINCHESTER é necessário 
para realizar o estrapeamento correto. É verdade que os WINCHESTERS 
são todos configurados na fábrica como MASTER e SLAVE NOT PRESENT. 
Mas para instalar um segundo WINCHESTER o estrapeamento adequado 
deve ser realizado. 


RESISTORES DE TERMINAÇÃO 


Todos os WINCHESTERS possuem RESISTORES DE TERMINAÇÃO. São 
chamados nos manuais em inglês de “RESISTOR TERMINATION PACK”. A 
regra a ser utilizada é muito simples. O WINCHESTER conectado na 
extremidade do cabo deve permanecer com seus resistores de terminação 
instalados, da forma como chegaram da fábrica. O WINCHESTER ligado ao 
conector do meio do cabo deve ter seus resistores de terminação 
retirados. O manual do WINCHESTER traz sempre instruções a esse 
respeito. Os resistores de terminação possuem um formato muitas vezes 
semelhante ao de um CHIP e são encaixados para que possam ser 
retirados pelo usuário. 

Alguns WINCHESTERS não necessitam que os resistores de terminação 
sejam retirados. São calculados de forma que possam ficar presentes nos 
dois WINCHESTERS. Nos modelos onde é necessário retirar os resistores 
de terminação do WINCHESTER conectado no meio do cabo, existirão 
instruções a esse respeito no seumanual. Normalmente os WINCHESTERS 
IDE não necessitam desses cuidados. 


GEOMETRIA DE WINCHESTERS IDE 


Entende-se por GEOMETRIA de um WINCHESTER, o seguinte conjunto 
de valores: 


número de cabeças 

número de cilindros 

número de setores por trilha 

cilindro de pré-compensação 

zona de estacionamento das cabeças 


Normalmente essa geometria deve ser fornecida no SETUP CMOS. Por 
exemplo, se um WINCHESTER possui 820 cilindros, 7 cabeças e 34 
setores portrilha, esses valores devem ser colocados no SETUP. Entretanto, 
algumas vezes esses valores não podem ser colocados, pelas seguintes 
razões: 


a) O SETUP não possui uma opção correspondente à geometria real do 
WIN-CHESTER. 


b) O número de cilindros do WINCHESTER é maior que 1024. 0 DOS não 
pode operar com drives com mais de 1024 cilindros. 


c) O WINCHESTER usa uma técnica de gravação chamada ZBR (Zone 
Bit Recording), que coloca mais setores nas trilhas extemas, com o 
objetivo de aumentar a capacidade. Isso faz com que o número de setores 
por trilha seja variável. 


Por todas essas razões os WINCHESTERS IDE operam no chamado 
MODO DE TRANSLAÇÃO (TRANSLATION MODE). As características definidas 
no SETUP CMOS representam uma geometria fictícia, mas que resulta em 
uma capacidade equivalente à capacidade real do WINCHESTER. Essa é 
chamada de geometria lógica. Quando é solicitado o acesso a um 
determinado setor físico, o BIOS envia ao WINCHESTER o número do setor, 
do cilindro e cabeça desejados. O WINCHESTER recebe esses três valores 
e realiza uma conversão levando em conta a sua geometria verdadeira. 


Considere o caso do ST1239A, que possui as seguintes características: 


cilindros: 1272 
cabeças: 9 
setores: 36 


número total de setores: 1272 x 9 x 36 = 412.128 


Como o DOS não aceita drives com mais de 1.024 cilindros, usa-se a 
seguinte geometria lógica, sugerida pelo fabricante: 


cilindros: 848 
cabeças: 9 
setores: 54 


número total de setores: 848 x 9x 54 = 412.128 


Observe que o número total de setores é mantido. Esses valores devem 
ser colocados no SETUP. Suponha que o DOS realize uma leitura no setor 
40 do cilindro O, cabeça O. Quando o WINCHESTER recebe esses valores, 
realiza a conversão e acessa fisicamente o setor 4 do cilindro O, cabeça 
41. Também é gerenciada a técnica ZBR, que coloca números de setores 
diferentes nas trilhas mais externas. Muitas vezes a geometria física nem 
é fornecida. O usuário precisa saber apenas a geometria lógica para 
realizar o SETUP. No final deste artigo é apresentada uma tabela com as 
geometrias lógicas de vários WINCHESTERS IDE, para que o usuário possa 
realizar o SETUP. Essas características são normalmente encontradas no 
manual do WINCHESTER. O roteiro para realizar o SETUP de um WINCHES- 
TER IDE é portanto o seguinte: 


1) O SETUP possui um WINCHESTER com a geometria lógica sugerida 
pelo fabricante ? Se possui, então esta deve ser usada. Se não passa-se 
ao item 2. 


2) O SETUP possui um tipo de WINCHESTER definido pelo usuário 
(normalmente é o TIPO 47)? Se possui, este deve ser usado e programado 
com a geo-metria lógica sugerida pelo fabricante. Se não possui passa-se 
ao item 3. 


3) Calcula-se o número de setores do disco. Esse número é calculado 
a partir da geometria lógica, com a seguinte fórmula: 


NÚMERO TOTAL DE SETORES = CABEÇAS x CILINDROS x SETORES 


Com esse número, procura-se nos tipos pré-definidos no SETUP, um 
que resulte em um número total de cilindros igual ou ligeiramente menor 
que o calculado acima. Qualquer tipo que possua uma geometria lógica 
que atenda essa condição pode ser usado, desde que sejam respeitadas 
algumas condições: 


a) o número de cilindros deve ser no máximo 1024 
b) o número de setores por trilha deve ser no máximo 60 


Essas condições são normalmente apresentadas no manual do WIN- 
CHESTER em questão e variam de um modelo para outro. 

Uma afirmação qualquer sobre um determinado modelo de WINCHES- 
TER nunca pode ser generalizada para todos os modelos. IDE é um 
assunto novo e não existe praticamente nenhuma literatura a respeito. 
Muitos profissionais da área observam algumas características de um 
certo modelo e generalizam, erradamente, para todos os modelos. Isso faz 
com que o usuário seja “bombardeado” continuamente com informações 
falsas ou imprecisas. Por exemplo, é verdade que os WINCHESTERS IDE 
da SEAGATE aceitam qualquer geometria lógica, desde que sejam 
respeitadas as condições descritas acima. O mesmo pode não ser válido 
para WINCHESTERS IDE de outros fabricantes. Por exemplo, o WIN- 
CHESTER MAXTOR 7120A aceita 4 tipos de geometria lógica: 


1024 cilindros, 14 cabeças, 17 setores 
900 cilindros, 15 cabeças, 17 setores 
762 cilindros, 8 cabeças, 39 setores 
936 cilindros, 16 cabeças, 17 setores 


O MAXTOR 71204 possui dois STRAPS que, definem qual é a geometria 
lógica a ser usada. À opção 1024x14x1.7 é a que é configurada na fábrica. 
Como sempre, o manual é necessário. 


MICRO SISTEMAS 21 


GEOMETRIA DE WINCHESTERS SCSI, RLL E ESD! 


Esses tipos de WINCHESTER possuem normalmente em suas placas 
de interface uma ROM que realiza todo o seu controle. O BIOS da placa de 
CPU não interfere no acesso ao WINCHESTER. Nesses casos o SETUP deve 
ser feito na opção “HARD DISK NOT INSTALLED"”. 


PRÉ COMPENSAÇÃO E ZONA DE ESTACIONAMENTO DAS CABEÇAS 


Os WINCHESTERS antigos necessitavam de dois parâmetros adicionais 
no SETUP, À pré-compensação de gravação (WPCOM) é ativada a partir de 
um determinado cilindro para compensar o efeito magnético que ocorre 
entre os bits gravados nas trilhas mais internas do disco. A operação de 
estacionamento das cabeças consiste em posicionar as cabeças em uma 
trilha no final do disco (LZONE) para que o WINCHESTER possa ser 
transportado. Também é aconselhável realizar o estacionamento quando 
o computador é desligado. Os WINCHESTERS modemos gerenciam a pré- 
compensação internamente, sem a intervenção do BIOS. Também realizam 
o estacionamento automático das cabeças quando são desligados 
(AUTOPARK). Caso o fabricante forneça no manual do WINCHESTER os 
valores de WPCOM e LZONE, estes devem ser usados no SETUP. Caso o 
manual não os forneça, qualquer valor pode ser usado, pois serão 
ignorados pelo WINCHESTER. 

Para que o BIOS também passe a ignorar a pré-compensação e o 
estacionamento das cabeças, deve ser usado para ambos o valor 65535. 
Para o BIOS, este valor é sinônimo de “NOT USED”. Alguns manuais 
sugerem usar o valor -1. Nesse caso, pode ser usado o número 65535, 
pois tem a mesma representação binária que o número -1. 

Quando é usado um WINCHESTER antigo, que não realiza o estaciona- 
mento automático, deve ser utilizado um programa próprio para realizar 
essa operação. Normalmente é um programa chamado PARK.COM ou 
DISKPARK.COM. 

Os fabricantes de WINCHESTER recomendam que não sejam utilizados 
programas desse tipo com WINCHESTERS que possuem AUTOPARK. 
Normalmente não causa nenhum problema, mas certos programas de 
estacionamento utilizados com certos modelos de WINCHESTER podem 
causar danos. 


SUPORTE DO FABRICANTE VIA MODEM 


Os usuários que possuem um MODEM podem obter informações 
técnicas sobre seus WINCHESTERS, diretamente dos fabricantes, já que 
a maioria deles possui uma BBS para atendimento de usuários. Alguns 
fornecem suporte em linha telefônica normal (obviamente em inglês). 
Abaixo estão relacionados os tele-fones de suporte ao usuário de alguns 
fabricantes. Deve ser usado o código 001 para discagem direta para os 
E.U.A. 

FABRICANTE TELEFONE ATENDIMENTO 
CONNER 408-456-3388 SUPORTE TÉCNICO 
CORE INTERNATIONAL 407-241:2929 BBS 
CORE INTERNATIONAL 407-997-6044 SUPORTE TÉCNICO 


FUJITSU AMERICA 408-944.9899 BBS 

FUJITSU AMERICA  B00-826-6112 SUPORTE TÉCNICO 
KALOK 408-747-1315 SUPORTE TÉCNICO 
MAXTOR/MINISCRIBE 303-678-2222 BBS 
MAXTOR/MINISCRIBE 800356-5333 SUPORTE TÉCNICO 
PROCOM 800-800-8600 SUPORTE TÉCNICO 
MICROSCIENCE 4084339898 SUPORTE TÉCNICO 
QUANTUM 408894-4000 SUPORTE TÉCNICO 
SEAGATE 408-4388771  BBS 

SEAGATE 408-438-8222 SUPORTE TÉCNICO 
SEAGATE 4084388137 SUPORTE VIA FAX 
TOSHIBA AMERICA 714-837-4408 BBS 

TOSHIBA AMERICA 8009994273 SUPORTE TÉCNICO 
WESTERN DIGITAL 714-7531234 BBS 

WESTERN DIGITAL 8008324778 SUPORTE TÉCNICO 


É verdade que uma ligação para os Estados Unidos custa caro, nem to- 
dos falam inglês fluentemente e nem todos possuem um modem. Por 
outro lado, quem possui o manual do seu WINCHESTER encontra nele 
todas as informações necessárias. Exija o manual. 
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PARÂMETROS DE WINCHESTERS MEM, RLL E ESDI 


Quem ainda não comprou o seu WINCHESTER já está avisado de que 
o manual é necessário. Para quem já comprou sem manual o problema é 
sério. Existem mais de 1500 modelos diferentes de WINCHESTER e não 
é possível colocar em um livro as características de todos eles. Os 
telefones dos fabricantes, indicados acima, são uma boa indicação de 


"como conseguir os manuais. Vale a pena também procurar o vendedor e 


tentar conseguir a documentação que não foi fomecida. Procuraremos 
amenizar o sofrimento desses usuários, apresentando uma tabela com as 
características de alguns modelos de WINCHESTER. 


FABRICANTE MODELO TIPO CYLS HEADS SECT WCOMP LZONE SIZE 


SEAGATE ST4038 MEM 733 5 47 7133 32M 
SEAGATE ST124 FM 615 4 17 - 670 21M 
SEAGATE STi38 MEM 615 6 17 - 615 32M 
SEAGATE ST4514 MEM 977 5 17 - 977 42M 
SEAGATE ST213 MEM 615 2 47 300 670 10M 
SEAGATE ST225 MEM 615 4 417 Ea 670 21M 
SEAGATE ST251 MEM 820 6 47 820 42M 
SEAGATE S7253 MEM 989 5 17 989 43M 
SEAGATE ST4026 MEM 615 4 47 670 21M 
SEAGATE ST4051 MEM 977 5 1 977 42M 
SEAGATE ST4053 MEM 1024 5 417 - 1024 44M 
SEAGATE ST4085 MEM 1024 8 417 1024 T1M 
SEAGATE ST4086 MEM 925 9 17 926 T2M 
SEAGATE ST4096 MEM 1024 9 17 1024 80M 
SEAGATE ST4097 MEM 1024 9 417 1024 80M 
SEAGATE ST1100 MEM 1072 9 47 1072 83M 
SEAGATE ST1106R RLL 977 7 26 977 9IM 
SEAGATE ST138R RIL 615 4 26 615 32M 
SEAGATE ST15S7TR RLL 615 6 26 615 49M 
SEAGATE ST7226R RIL 667 2 31 - 670 21M 
SEAGATE ST1150R RLL 4072 9 26 300 1072 128M 
SEAGATE S71156R RIL 1072 7 36 300 1072 138M 
SEAGATE ST238R RLL 615 4 26 - 670 32M 
SEAGATE ST250R RLL 667 4 31 670 42M 
SEAGATE ST27IR RLL 820 6 26 - 820 65M 
SEAGATE ST279R RIL 989 5 26 128 989 65M 
SEAGATE ST4135R RLL 960 9 26 - 960 115M 
SEAGATE ST4144R RLL 1024 9 26 - d0as 122M 
SEAGATE ST1111E ESDI 1072 5 36 - 98M 
SEAGATE ST1156E ESDI 1072 7 36 - - 138M 
SEAGATE ST1201E ESDI 1072 9 36 277M 
SEAGATE ST2106E ESDI 1024 5 34 - .- 89M 
SEAGATE ST2182E ESDI 1453 4 54 . - 160M 
SEAGATE ST2383E ESDI 1747 7 54 - .- 33M 
SEAGATE ST4182E ESDI 969 9 34 - - 154M 
SEAGATE ST4383E ESDI 1412 13 34 - 319M 
SEAGATE ST4384E ESDI 1224 15 34 - 319M 
SEAGATE ST4442E ESDI 1412 15 34 - 368M 
SEAGATE ST4766E ESDI 1632 15 aa - 664M 
CORE  AT32 MEM 733 5 47 31M 
CORE  AT30 MEM 733 5 47 31M 
CORE  ATMO MM 988 5 417 42M 
CORE  AT6S MEM 988 5 17 42M 
CORE ATI MEM 924 9 47 - 107M 
CORE  OPTIMAS3O MEM 733 5 TA - 31M 
CORE  OPTIMASO MEM 963 5 47 - 44M 
CORE  OPTIMATO MPM 918 9 47 - TiM 
CORE  AT32 RL 733 5 26 48M 
CORE  AT30 RL 733 5 26 48M 
CORE  AT4O RLL 988 5 26 61M 
CORE  AT63 RLL 988 5 26 65M 
CORE  ATI2 RLL 924 9 26 163M 
CORE  OPTIMASO RLL 733 5 26 48M 
CORE  OPTIMA 40 RLL 963 5 26 64M 
CORE  OPTIMATO RIL 918 9 26 109M 
CORE  HC40 ESDI 564 4 35 40M 
CORE  HC90 ESDI 969 5 35 91M 
CORE  HC150 ESDI 969 9 35 .- 156M 
CORE  HC260 ESDI 1212 12 35 260M 
CORE HC310 ESDI 1582 12 35 311M 
FUJITSU M2227D2 MEM 615 8 47 40M 
FUJITSU M2242A82 MFM 754 7 47 43M 
FUJITSU M2243AS2 MEM 754 11 47 67M 
FUJITSU M22437 MEM 1186 7 47 68M 
FUJITSU M2225DR RLL 615 4 26 32M 
FUJITSU M2226DR RLL 615 6 26 49M 
FUJITSU M2227DR RLL 615 8 26 65M 
FUJITSU M2243R RL 1186 7 26 110M 
FUJITSU 2244 ESDI 823 5 35 T3M 
FUJITSU 2245 ESD 823 7 35 - 120M 
FUNTSU M2246E ESDI 823 10 35 171M 
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Prepare seu micro para o mais novo lançamento da PRO KIT; o GRAPHOS !l! 
versão 5.0, compatível com placas VGA/SVGA de 256 Kbytes (mínimo). 
Totalmente escrito em Assembler, ele é o mais rápido editor para o PC e um 
dos poucos que não exige megas e megas de memória para ser executado. Tudo 
nele é simples e fácil de usar - a inteface de comunicação com o usuário foi 
redesenhada para dar suporte integral ao mouse, sem contudo perder a 
operacionalidade eficiente, que é uma das principais caracteristicas deste 
software MADE IN BRAZIL. 

Além dos recursos tradicionais de edição gráfica, tais como linhas, 
retângulos, raios, círculos, fill, spray, inversão, rotação, espelhamento, etc, 
o GRAPHOS Ill possui ainda ferramentas especiais para corte e duplicação 
de pedaços da tela, zoom para correções delicadas nos desenhos, troca 
de atributos e uma nova ferramenta para uso com os padrões gráficos 
pré-definidos. 

À grande novidade desta versão é o arquivo Clipboard, que pode 
manipular até 180 telas. Essas telas podem ser posteriormente 
compactadas num Único arquivo e integrar um sistema de slide show 
simples e fácil de programar. E possível controlar o tipo de efeito 
especial que será usado para mostrar a tela, o tempo que ela 
permanecerá mostrada e até mesmo associar uma tecla a cada 
tela. O sistema pode criar um programa executável, para o slide 
show, que independe do GRAPHOS Ill para funcionar. 

O novo editor de alfabetos permite que 0 usuário crie e edite 
alfabetos proporcionais, com 2 pixels de altura até 16 pixels. 

Novos recursos de clipping e captura gráfica aumentam 
consideravelmente o poder dos editores de padrões e de alfabetos. 

À edição da palette ficou mais simples ainda. Com poucos 
comandos do mouse é possível alterar as intensidades de RGB 
de cada cor. Além disso, é possível controlar a intensidade 
(claro/escuro) das cores e calcular o tom de cinza 
correspondente da cor. 

O programa GRAPHOS Ill ainda permite que se grave ou 
recupere arquivos no formato TIFF, não compactado, com 


definição de cores. 
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Esta é sua chance de aprender uma das 
mais poderosas linguagens de programa- 
ção a disposição dos usuários de micro- 
computadores compatíveis com o PC. 

Em Assembler você dispõe de acesso 
total ao microprocessador, às portas lógi- 
cas, às placas controladoras, etc. Outras 
vantagens são: código fonte compacto, 
velocidade total de processamento 6 bi 
bliotecas de rotinas e funções. 

Programar em Assembler é extrema- 
mente simples pois com pouco mais de 20 


instruções você cria qualquer tipo de 
programa. Além disso, você estará usando 
a linguagem preferida das maiores “feras” 
profissionais de criação de software. 

Ão fazer a inscrição, você recebe a 
primeira lição. Cada lição é seguida por um 
teste que, após sua avaliação, dá pros- 
seguimento às outras etapas. 


Complemento VGA: 


Para os usuários que pretendem estar 
em dia com as novas tendências de inter- 


faces gráficas, a PRO KIT está oferecendo 
um complemento (fornecido junto com o 
curso) dedicado exclusivamente à progra- 
mação para placas VGA. 

São rotinas e funções para acesso direto 
à memória de vídeo, impressão, suporte 
total para mouse, janelas, botões funcio- 
nais, shapes, telas, etc. 

Faça agora mesmo sua inscrição. 


Autor e orientador: RENATO DEGIOVANI 
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[ |] Assembler em 10 lições............ US$ 60 [ |] Complemento VGA... US$ 40 
Nome: 
Endereço: 
CEP: Cidade: UF: Transforme o valor em dólar para Cruzeiros Reais pela 
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SEAGATE ST3096A 
SEAGATE ST3120A 
SEAGATE ST3144A 
SEAGATE ST3283A 
SEAGATE ST1400A 
SEAGATE ST1401A 
SEAGATE ST1480A 
SEAGATE ST280A 

SEAGATE ST2274A 
SEAGATE ST2383A 


1024 10 17 
1024 12 17 
1001 15 17 
1024 12 39 
1018 12 53 
726 15 61 
895 15 62 
1024 8 17 

536 16 55 
737 16 56 


89M 
106M 
130M 
245M 
331M 
340M 
426M 
71M 
241M 
338M 


HITACHI DK5115 MEM 699 7 417 40M 
HITACHI DK5118 MEM 823 40 47 67M 
HITACHI DK521:5 MEM 823 6 47 51M 
HITACHI DK52210 ESD| 823 6 36 103M 
HITACHI  DK514-38 ESDI 903 14 51 330M 
MAXTOR XT4050 MEM 902 5 17 38M 
MAXTOR XT4065 MEM 918 7 17 56M 
MAXTOR XT1085 MEM 1024 8 47 71M 
MAXTOR XT4105 MEM 918 11 47 B7M 
MAXTOR XT1140 MEM 918 15 47 113M 
MAXTOR XT2085 MEM 1224 7 47 74M 
MAXTOR XT2140 MEM 1224 11 17 117M 
MAXTOR XT-2190 MEM 1224 15 47 150M 
MAXTOR XT41120R RLL 1024 8 25 104M 
MAXTOR XT1240R RLL 1024 15 25 196M 
MAXTOR EXT-4175 ESDI 1224 7 34 149M 
MAXTOR XT-4170E ESDI 4224 7 35 157M 
MAXTOR EXT-4280 ESDI 1224 11 34 234M 
MAXTOR XT-4380E ESDI 1224 15 35 338M 
MAXTOR XTB380E ESDI 1632 8 54 - - 360M 
MAXTOR XT-B610E ESDI 1632 12 54 541M 
MAXTOR XT-B760E ESDI 1632 15 54 - - 676M 
QUANTUM 540 MM 512 8 17 - - 36M 


OBSERVAÇÕES: 


1) Todos os WINCHESTERS MFM possuem 17 setores por trilha. 

2) Os WINCHESTERS RLL NORMALMENTE possuem 25 ou 26 setores 
por trilha. 

3) Os WINCHESTERS ESDI possuem 34, 35, 36 ou 54 setores por 
trilha. 

4) Para os WINCHESTERS MFM, RLL e ESDI, as características físicas 
devem ser fomecidas durante a formatação física. No caso de placas 
controladoras de WINCHESTER sem ROM, as características físicas devem 
também ser fornecidas no SETUP. 

5) Quando os parâmetros WPCOM (cilindro de pré compensação) e 
LZONE (zona de estacionamento das cabeças) são omitidos na tabela 
acima, signifiéa que deve ser colocado no SETUP o valor 65535. 

6) Para formatar fisicamente WINCHESTERS MFM e RLL pode ser 
usado qual-quer programa que realize formatação física: CHECKIT, DISK 
MANAGER, PC TECHNICIAN, IBM ADVANCED DIAGNOSTICS ou até mesmo 
um utilitário para formatação gravado, juntamente com o SETUP, nas 
ROMS de algumas placas de CPU. 

7) Os WINCHESTERS com o parâmetro LZONE omitido realizam 
estacionamento automático das cabeças quando são desligados (AUTO 
PARK). Aconselha-se não usar programas que realizam o estacionamento 
das cabeças com esses mo-delos de WINCHESTER. 


PARÂMETROS DE WINCHESTERS IDE 


Para aqueles que não possuem os manuais, aqui vão as características 
lógicas dos WINCHESTERS IDE, para serem usadas no SETUP. Não 
pretende-mos aqui suprir a ausência de manuais, nem incentivar a 
aquisição de WIN-CHESTERS sem seus manuais. À lista deve ser encarada 
como um “quebra galho”. 


FABR. MODELO  GEOM. LÓGICA SIZE 


SEAGATE ST3500A 
SEAGATE ST3600A 
QUANTUM 40AT 


1024 14 58 426M 
1017 16 63 525M 
965 5 17 42M 


QUANTUM 52ATLPS 751 8 17 52M 
QUANTUM 425AT 1520 16 51 426M 
QUANTUM 80AT 965 10 17 83M 


QUANTUM 105ATLPS 755 16 17 105M 
QUANTUM 120AT 814 9 32 120M 
QUANTUM 170AT 968 10 34 168M 
QUANTUM 210AT 873 13 36 209M 
QUANTUM 330AT 1520 12 51 331M 


CONNER CP-342 805 4 25 41M 
MAXTOR 7040A 981 5 17 42M 
MAXTOR 7080A 981 10 17 85M 
MAXTOR 8051A 745 4 28 42M 
MAXTOR 8225A 615 4 17 21M 
MAXTOR 8050A 745 4 28 42M 
MAXTOR T7OGOA 1024 7 17 62M 
MAXTOR 7120A 1024 14 17 124M 
MAXTOR tXT-213A 683 16 38 212M 
MAXTOR LXT-340A 683 16 38 33/M 
MAXTOR LXT-437A 842 16 63 434M 
MAXTOR LXT-535A 1024 16 63 528M 
SAMSUNG 3061A 977 717 60M 


SAMSUNG 3101A 
SAMSUNG 30624 


TI6 8 33 100M 
917 15 17 120M 


OBSERVAÇÕES: 


1) À geometria LÓGICA deve ser usada no SETUP. 

2)0s parâmetros WPCOM e LZONE devem ser definidos no SETUP com 
um valor igual ao número de cilindros acrescido de 1, ou então com o valor 
65535, que corresponde a NOT USED. 

3) Osfabricantes recomendam não usar programas de estacionamento 
de cabeças em WINCHESTERS que fazem estacionamento automático. 

4)Astabelas apresentadas aqui não pretendem substituir os manuais, 
e sim, pos-sibilitar a realização do SETUP no caso da ausência dos 
mesmos. 

5) Todos os WINCHESTERS IDE possuem AUTO PARK. 


PARÂMETROS DE WINCHESTERS SCSI 


À seguir apresentaremos os parâmetros de vários WINCHESTERS 
SCSI. Esses parâmetros não devem ser usados no SETUP CMOS, pois 
esses WIN-CHESTERS devem ser definidos como NOT INSTALLED. Todos 
os WINCHES-TERS SCSI possuem em sua placa controladora um BIOS que 
realiza todo o acesso, sem o auxílio do BIOS da placa de CPU. Os 
parâmetros dos WINCHESTERS SCSI são usados apenas no caso da 
necessidade da realização de uma formatação física. Essa formatação é 
normalmente realizada pelo BIOS da placa controladora, que pode ser 
chamado através do programa DEBUG, como já foi mostrado neste artigo. 


FABRICANTE MODELO CYL HEAD SECT SIZE 





CYL HSEC 
SEAGATE ST1201A 804 9 48 177M 
SEAGATE ST1057A 1024 6 17 53M 
SEAGATE ST1090A 335 16 29 79M 
SEAGATE ST1102A 1024 10 17 89M 
SEAGATE ST11114A 402 10 48 98M 
SEAGATE ST1126A 469 16 29 111M 
SEAGATE ST1I33A 477 8 60 4117M 
SEAGATE ST1144A 1001 15 17 124M 
SEAGATE ST1156A - 536 9 56 138M 
SEAGATE ST1162A 603 16 29 143M 
SEAGATE ST1186A 636 9 56 164M 
SEAGATE STi239A 954 12 36 211M 
SEAGATE ST125A 615 4 17 21M 
SEAGATE ST138A 615 6 17 32M 
SEAGATE STÍ57A 733 7 17 44M 
SEAGATE ST9051A 820 6 17 42M 
SEAGATE ST9052A 980 5 17 42M 
SEAGATE ST9O77A 669 11 17 64M 
SEAGATE ST9096A 980 10 17 85M 
SEAGATE ST9144A 980 15 17 127M 
SEAGATE ST351A 820 6 17 43M 
SEAGATE ST3051A 820 6 17 43M 
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SEAGATE 


ST1090N 1068 5 29 79M 
SEAGATE ST1096N 906 7 26 B3M 
SEAGATE  ST1111N 1068 5 36  98M 
SEAGATE ST1126N 1068 7 29 144M 
SEAGATE STi133N 1268 5 36  1416M 
SEAGATE  ST11656N 1068 7 36 138M 
SEAGATE ST1162N 1068 9 29 142M 
SEAGATE ST1201 1068 9 36 477M 
SEAGATE ST1Í239N 1268 9 36  210M 
SEAGATE  ST1258N 407 4 26 24M 
SEAGATE ST138N 615 4 26  32M 
SEAGATE  STÍTIN 921 5 26 60M 
SEAGATE  ST2106N 1022 5 26  91M 
SEAGATE ST225N 615 4 47 24M 
SEAGATE  ST251N0 820 4 26 43M 





SEAGATE ST25iN1 630 4 34 43M 
SEAGATE ST27INO 820 6 26  64M 
SEAGATE ST27INÃ 628 6 34 64M 
SEAGATE ST2960N 820 6 34 64M 
SEAGATE ST4182N 969 9 26  155M 
SEAGATE ST4766N 1632 415 54 676M 
MAXTOR  XT4i70S 1224 7 36 4157M 
MAXTOR  XT4380S 1224 15 36 337M 
MAXTOR  XT8330S 1632 8 54 360M 
MAXTOR  XT8760S 1632 15 54 675M 
MAXTOR  XT8702S 1490 15 54 616M 
CONNER  CP-3100 776 8 25 104M 
FUITSU  M244SA 823 5 35 73M 
HITACHI  DK512C17 849 410 35 134M 
HITACHI!  DK522C10 819 6 35  88M 
MAXTOR  XT3170 1224 9 48 146M 
MAXTOR  XT-4170S 1224 7 36 4157M 
MAXTOR  X7-4280S 1224 15 36 338M 
MAXTOR  XT-8380S 1632 8 54 360M 
MAXTOR  XT-8760S 1632 15 54 676M 
MICROPOLUS 1576-11 1224 11 36 243M 
MICROPOLIS 1577-12 1224 12 36  266M 
MICROPOLIS 157713 1224 13 36 287M 
MICROPOLIS 157814 1224 14 36  310M 
MICROPOLIS 157815 1224 15 36 332M 


MINISCRIBE 84258 615 4 17 24M 
MINISCRIBE 9380S 1218 15 36  336M 
TOSHIBA  MK153FB  B30 5 35 74M 
TOSHIBA  MK154FB 830 7 35  104M 
TOSHIBA  MK156FA 830 10 35 148M 


FORMATAÇÃO FÍSICA DE WINCHESTERS IDE 


Esse é atualmente um dos assuntos mais polêmicos no mundo dos 
PCs. Os fabricantes fornecem certas informações que não estão de acordo 
com o que ocorre na prática. Todos os WINCHESTERS podem ser 
formatados sem problemas, exceto o IDE e o SCSI. 

Os WINCHESTERS MFM e RLL podem ser formatados, por exemplo, 
com os seguintes programas: 


a) Formatador físico fornecido pelo fabricante 

b) Formatador físico na ROM da interface, caso exista. 

c) Formatador físico na ROM da placa de CPU, caso exista. 
d) IBM ADVANCED DIAGNOSTICS 

e) CHECKIT 

f) DISK MANAGER 

£) PC TECHNICIAN 


Os WINCHESTERS ESDI devem ser formatados com o formatador físico 
existente na ROM de sua interface. O mesmo ocorre com o SCSI. 

Quanto aos WINCHESTERS IDE, uma avalanche de informações contra- 
ditórias são encontradas. A SEAGATE afirma que os WINCHESTERS IDE e 
SCSI já são formatados fisicamente na fábrica e não necessitam de 
formatação física. Isso é uma grande verdade. Em certos WINCHESTERS 
pode ser encontrado um aviso impresso na própria carcaça: “DO NOT LOW 
LEVEL FORMAT” (não formate fisicamente). Em certos manuais é dito que 
um WINCHESTER IDE não deve ser formatado em hipótese alguma pois 
serão apagadas importantes tabelas de setores defeituosos e de translação 
entre a geometria lógica e a geometria física. A SEAGATE avisa que a 
formatação de um WINCHESTER IDE pode danificálo permanentemente, 
ou reduzir sua performance, ou reduzir sua confiabilidade. Técnicos da 
SEAGATE afirmam que se um WINCHESTER IDE for fisicamente formatado, 
deve ser enviado para a fábrica para que possa ser recuperado. A ELEBRA, 
distribuidora de WINCHESTERS SEAGATE no Brasil, afirma que tem 
condições de recuperar “alguns modelos” de WINCHESTERS IDE for- 
matados indevidamente. Artigos sobre o assunto encontrados em revistas 
técnicas (Ex. PC MAGAZINE) explicam que um WINCHESTER IDE não deve 
ser formatado pois a formatação física destrói informações de SERVO- 
CONTROLE que só o fabricante pode gravar, mas na verdade muitos 
WINCHESTERS quando formatados inibem internamente o comando de 
formatação e não se danificam (???). O programa CHECKIT 2.17 avisa na 
sua documentação que não deve ser usado para formatar WINCHESTERS 
IDE. Nenhum fabricante fornece uma informação precisa como: 


Esses modelos não devem ser formatados em hipótese alguma. 
Esses modelos podem ser formatados com o programa X. 
Esses outros devem ser formatados com o programa Y. 

Esses outros podem ser formatados com qualquer formatador. 


À informação que é sempre encontrada é “não é necessário formatar”, 
ou “não formate”. 

Por outro lado a prática tem mostrado que muitos WINCHESTERS IDE 
danificados são recuperados com uma formatação física. O próprio 
programa DISK MANAGER, da SEAGATE, possui no seu menu opções de 
alguns modelos IDE (ST157A, ST138A, ST125A). Modelos como o 
ST157A, um dos mais vendidos no ano de 1991, têm sido formatados pelo 
DISK MANAGER desde o seu lançamento sem problemas. O CHECKIT 3.0 
tem sido usado para formatar WIN-CHESTERS ST351A, ST157A, QUAN- 
TUM 52AT, ST1180A, ST3120A e outros. À orientação que temos para dar 
a respeito é a seguinte: 


a) Quando instalar seu WINCHESTER IDE não será necessário formatá- 
lo fisicamente. Deve ser usado apenas o FDISK e o FORMAT. 


b) Se seu WINCHESTER IDE já está formatado e precisa de uma 
formatação física, formate utilizando um software que possua seu modelo 
de WINCHESTER no menu de modelos suportados. Por exemplo, o DISK 
manager possui em seu menu os modelos ST157A, ST138A e ST125A. 


c) Nunca realize uma formatação física de um WINCHESTER IDE 
usando um software que não seja fomecido pelo próprio fabricante do 
WINCHESTER. 


d) Procure alguém que já tenha formatado antes um WINCHESTER igual 
ao seu e verifique que programa foi utilizado. 


e) Não formate WINCHESTERS IDE com o utilitário de formatação física 
existente nos SETUPs de diversos ATs. Esse formatador físico deve ser 
Usado apenas para WINCHESTERS MFM. 


PARTIÇÃO E FORMATAÇÃO LÓGICA DE DOIS WINCHESTERS 


É interessante notar que no WINCHESTER não ficam gravados os 
nomes dos drives lógicos, e sim, uma indicação das partições nas quais 
o WINCHESTER foi dividido. Caso exista um único WINCHESTER instalado, 
o DOS usará para designar seus drives lógicos as letras C, D, E, etc. Caso 
existem dois WINCHESTERS instalados, o DOS usará as seguinte sequência 
de letras: 


Drive C: Partição primária do primeiro WINCHESTER. 
Drive D: Partição primária do segundo WINCHESTER. 


À seguir serão usadas as letras E, F, G... para designar os drives lógicos 
da partição estendida do primeiro WINCHESTER, e as letras seguintes para 
os drives lógicos do segundo WINCHESTER. 

Suponha que um sistema possui um único WINCHESTER dividido em 
dois drives lógicos C e D. Ao ser instalado um segundo WINCHESTER, 
usado inteiramente com uma partição primária, este passará a ser 
automaticamente chamado de drive “D”, e a partição estendida do 
primeiro WINCHESTER, que antes era o drive “D”, passará a ser 
automaticamente chamada de drive “E”. 

Ão instalar dois WINCHESTERS em um mesmo sistema, deve ser tam- 
bém usado o programa FDISK e o programa FORMAT. Ao detectar que 
existem dois WINCHESTERS instalados, o FDISK colocará no seu menu 
principal uma opção a mais, para selecionar o disco 1. e o disco 2 (físicos). 
Como medida de segurança, aconselhamos que seja instalado o primeiro 
WINCHESTER, feita sua partição e sua formatação lógica. Retira-se o 
primeiro WINCHESTER e instala-se o segundo, realiza-se a partição e a 
formatação lógica. Depois disso, os dois WINCHESTERS, já inicializados, 
poderão ser usados em conjunto. Este método de instalação é "à prova 
de distraídos”. | 


e autor dos livros: Como montar seu próprio 

PC, Concerte você mesmo o seu PC, Arquitetua 
do PC E IBM PC: Dicas e Macetes de software. 
Adaptações Engenheiro Victor Hugo Vinhas 
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1394 READ MY DISK! q asian praca vs lomr ca ie 2234 VICURS Via comor ua 100 DÃO 0 AD, 
. à « 1687 READ. COM Um ledor de arquivos de fedo 2858 VPK Um vizvalrador 
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1070 PARTICLE SIMULA 
298 PLANETS Posicoes do 

1614 SKYCLOCK e dos abr 

2604 SKYGLOBE As estrelas se movem. 


QUÍMICA - BIOLOGIA - FISICA 

























PROGRAMAS ORIGINAIS 
PC-SIG (FROM U.S.A.) 
COM DOCUMENTAÇÃO COMPLETA 








444 EZ-MENU ido e focimente . 
1301 FRONT END Desenvolrimento de menu fecnico p/ programadores. 
631 HDM NV:HARD DESK MENU SYSTEM Acessa e escola cerca de 10.000 


25T6/7 ICON MENU SELECTION PROGRAM Seleciona programas de um 
TZ! MENSIRANIC Um siloma de men de 
sidema gd eb oh no dog 
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2279 EASY MAR - NETWORK EMAL Programa posol eletronico, facil de 
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2507 TOPWARE CAN OSS. Rede de area local p/ 02 computadores. 
A D 


SEGURANCA 
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OM rpotadr d ep nã eorindo 


Calculadora cxentifica c/ uma si 
GRAMAS P/ CRIANCAS (IDADE 2 A 10) 
2859 1-2-3 TALK Ensino molematico, olico, </ voz humana. 
844 ABC FUN KEYS ABC, numeros a locindios 
3078 fina o 






2863 V- NET Rede 


cor 
2316 COMIODRE Cromada arquivos de runico ADUIB 


218 ad RE 
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2930 ANIMAL QUEST ecossisiama 
2831/32 ME AIATELO UPA BET Graficos colondos com animacao 
2640 ANIMA ANDA TÇA SULAFES Ena o poonihoiços da Formosa cor: 


2444 SYSTEM GUARDIAM PACKAGE Delem “cavalos trojan”, virus e acidentes. 709 ONE Eu 
TES LUNCEROR ; VÊ Jogos educsios a divetids 


od TIME MASTER Imprime relodorios. Quem usou o programa: Qlo fempo 
































is LHA 2233/2676 EGA coli BOOK Lwro c/ 5 figuras. 
UTILITARIO, SISTEMAS OU HARDWARE Pesanajê MOUSE PAINT ANT Color 7 ba com e cores. 

as GRE de cr 2926 386 TEST Diagnosiico de silemo na mas 229 FUNNIES AND BUC ER Jogos IN crencas: sonia alienar 
B74 ' 2065 KID PAINT da le 










400 Rava os areas de cominucacoes de DOS e BIOS. 
disco 








1412 LEARN TO GUESS de aritmehico, c/ solucao de 
2344 MATH AND LOGIC sereis Al solveno de probe. 



































sia RA AA HEAR Cotia dor au Lero andre ronda ico: foi 
UTILITARIOS DE COPIAS 3047 WORD RESCUE. Grande aventura p/ crianca. sound a Polo 
145) DISK DUPLICATOR Foen copias mulíplos de discos. ENGENHARIA 05 Jogos colondos e divertidos. 





79 DISKDUPE impiei ramos ou descos. 
Vol ELDICOR sda da duplcacno de aco 
1 PLAYBACK de baldes. Pode automatizar forefos. 


626] o a e o a do 
CATALOGADOÍES DE DISCO E ETIQUETADORES RA 


2143 EASY FORMAT sr p/ todos os 











































1049 DISK CATALOGING PROGRAM Compiia um catologo de todos ox E DIE U Ugo dio red, O ui ROO a (rc Ani À ii 
bolinhas Um ala de ma O 2 PE SCHEMA S Desenho esquemas eletricos. imprime circuíios. 
Es Pri e do ond iso 1503 MAM FORM Enemoda 17 de ormazenamerdo de 
SAS DIISCAN Cria um colulogo de seus arquivos de disquetes. MONTAGE 2 o e 
a 9 MARCAM Ori és soe faq mi pa de Pr MATEMATICA - GEOGRAFIA 
ie PÉLOCK EV SNESRINCER ado 





1456 ALGEBRAX Noca auberos o medo da ilgabra: 


1997 UTILITÁRIO Um 
Piaf a ARQUIVOS ER e 











TR de 
248 des eras ! ed ” CURVERT  Compulacoo matematica de em curvas. 
na eDRTAO! Produz de 
1537 PROCON mp da cor da ma ia Pound de a e EPA de É ol e 4 de publiocao 
st QUIX Um ido d o: sa Li dino * ou fado injemo. dio LER PR E POSE REAR sas and 





= 


800 SCROLL RACK? Veleiro or 

O SCROU. KT Vigunize o omg À K. tela p/ Sela. 

vb bag pensa To pda VOZIO. 

Soda Shi pentor de cores py DOS 

003 SENTRY dido (AS 

dy RAP esc creo 
ng memoria residende. 


2884 MAM MAM CASTHE BY JENNINES Seis den 
arcade. 






Er 
E 
x 










PK Seleciona varios 
158 PROCESS feno dido 2 modes pe 


2864 QUICKSTART Tome um IBM, mais facil Ei NORTON a 












AOS26 01 DD CLIPMATE FOR WINDOWS  UTILITARIO PARA TEXTOS 
ADS36 01 DD DISKCOPY FOR WINDOWS  COPIADOR DE DISCOS 
A0571 01 DO FM DRIVER FOR WINDOWS DRIVER FM P/ WINDOWS 
N0547 01 DO GIF2ICON FOR WINDOWS DE BASROS EI VORO 
AOS32 01 DOMACROS FOR W.P FOR WINDOWS 28 MACROS P/ WORD PERFECT 
057001 DD METZ DESKTOP NAVIGATOR FACIUTA NAVY. PMNCHETR 
AO258 01 DOME WINDOWS 







COD DK TP NOME / DESCRICAO 
AO280 01 DO 1000 ICONES FOR WINDOWS ICONES P/O AMBIENTE WINDOWS 
AO281 01 DD 200 ICONES FOR WINDOWS NE RAD 
ADS33 01 DO 1700 OONS FOR WINDOWS ICONES P/ AMBIENTE WINDOWS 
ALMANAC FOR VANDOWS AGENDA COMPLETA P, 















MULHER 
AQS29 01 DO WIN SMOOTH FOR WINDOWS — P/ VISUALIZAR ARQ.C/SCROLL 
AOS31 01 DD WINDOWS SCAN RASTREADOR DE VIRUS 
AO528 01 DD WINDOWS 










AD43401 DOWINPOST FOR VANDOWS  UTILITARIO PARA VANDOWS 
AD53001 DO WORLD TIME FOR WINDOWS FUSOS HORARIOS 
DD Z1P MANAGER FOR WINDOWS GERENCIADOR DE ARQUIVOS 














T PROG. PARA CONS. MEDICO DD 
DD ONVERTE PROGAMA MONO P/ MULTI 0! DD 
DO A 01 DO 
DD DD 
DO DO 
DO DD 
DD HD 
DO DO 
É ONT. DE CREDIARIO 01 DD DD 
M ONTROLE DE ESTOQUE P/ TAPECARIA 01 DD DO 
CLBC 27 SOFTCAD DEMO DA BIBLIOTECA GRÁFICA 01 DD DO 
CODIGO CML | RLETRONKC LEGIS INDICE E á 3) DO K EI DO 
CONTAS À P/R DO! to o TEMAS SETA DECOTE E 01 DO COMBINA SENA E LOTO DD 
COMPASSO FINANC. COMPASSO INF. PACOTE COMP. DE FINANCAS Q HD . E PLAN, DE OBRAS DD 
CORRECAO wr.2.0] MICRO&CIA INF. CORRECAO MONETARIA 01 HD . DE JORNAL/REVISTA DD 
DAP wl.l SOFT FRIENDS DESPROTEGE MAS DE 140 JOGOS O] DD SIST. COMP. PARA IMOB. DD 
ESCRITA w.2.11 MICRO&CIA INF. ESCRITA FISCAL 01 HD DO 
ELEIROCE vr3.20 MULTISISTEMAS P/ CONSULTAS DE “CEM 01 DD DD 
O SEMBON INFOR. CADASTRO, ETC. 01 DD E COMPROM'SSOS DD 
DEMOJM CHIPSMICRO NF. GERA REL PARA CLIPPER 01 DD SSTE24, D: CONTROLE DE ESTOQUE DD 
CESAR UEHARA IMPRESSÃO DE CODIGO DE 01] DD SIST. DE CONT. BANCÁRIO 01 DD 
A INF. OTIMO DO RASTREADOR DEVIRUS PORTUGUES DD 
STERN SOFTWARE SET.CADASTRO DE CLENTES 01 DD TRADUZ TEXTO P/ V IDIOMAS DD 
CONT.ESTOQUE FSICO/FINANCERO 01] DD COMO USAR O LOTUS 123 DD 
RU 01 DD TRAÇA SEU MAPA ASTRAL DO 

FAZ SORTEO DA LOTO 01 DO 









O sorteio será realizado no dia 24-08-9 
pela Loteria Federal. Boa Sorte! 








Na compra de qualquer quantidade você 
estara concorrendo a um modem. 





2º SENSACIONAL SORTEIO 



















PRECOS 


jolciokH As 
JOGOS NOVIDADES 


COD DK TP NOME / DESCRICA 
93208 HD ACE OVER EUROPE VGA SIMULADOR DE AVIAO 


X93902 HDATAC 
X90802 HD AV-$B 
384303 HDA.TP.II (W) JOGO AEREA 

)866 07 HD BETRAYAL AT KRONDOR(VGA/W) ADVENTURE GRAFICO EM 


JW97803 HD BEVERLY HILLBILIES (VGA/W) ADVENTURE GRARCO ANIMADO 
HD BICYCLE LIMITED EDITION  SOLITAIRE POKER BRIDGE ETC 
)88406 DD BILL & TED (W) JOGO DE AVENTURA 





W96001 HD BIO MENACE (EGA) JOGO DE AVENTURA 

J0948 01 HD BLAKE STONE: ALIEN OF GOLD AVENTURA EM 3D  (VGA/W) 
XM08 HDBLUEPORCE — (VGA/W) ADVENTURE GRARCO ANIMADO 
K91507 HD RUZZALDRIN RACE INTO SPACE SIMULACAO CORRIDA ESPACIAL 
094201 HD B-WING COMPLEMENTO PARA O X-WING 

W91203 HD CAESAR (VGA/W) JOGO DE ESTRATEGIA 


092904 o PS TUTAA INSPACE (V INVESTIGACAO PELO ESPACO 
W90501 HD POR WINDOWS DE ESTRATEGIA 

)847 12 HD CHESSMANIACS BILJON AND 1 JOGO DE XADREZ (OTIMO!!!) 
1085307 DD CIBERNETIC RANGER (EGA/W) JOGO DE ACAO ESPACIAL 
087603 HD COMANCHE MISSIONSI MISSÕES PARA O COMANCHE 
3096303 HD COMANCHE MISSIONS | MISSÕES PARA O COMANCHE 
JX97101 HDCORPORATION (VGA) AVENTURA EM LABIRINTO 
J97603 HD COSMIC FORGE — (EGA/W) ADVENTURE GRAFICO EM “RPG” 
X90001 HD CRAZY CARS TE da ad CORRIDA DE CARROS 
X84201 HD CREEPERS (VGA) JOGO DE INTELIGENCIA 

(NG LES) HD CROSSWORD POR WINDO WS(2Mb) PALAVRAS CRUZADAS 
0900 HD DANGER ZONE:TOP GUN(VGA/W) SIMULACAO AEREA 
092305 HDDARK SUN  (VGA/W/386) ADVENTURE GRAFICO EM “RPG” 


)85406 HD DAYS OF THE TENTACLE(VGA/W ADVENTURE GRAFICO ANIMADO 


X91704 HD DOOM(VGA/W/386/4Mb) 
D84905 HD DRAGON'S LAR IV (VGA/W) JOGO DE ACAO 
HD DUKEN NUKEN 1 (COMPLETO) JOGO DE AVENTURA 
J94t 02 HD EIGHT BALL DELUXE (VGA) JOGO DE PINBALL (OTIMO!!!) 
HD ELECTRO BODY (VGA/DEMO) JOGO DE ACAO 

HD EMPIRE DELUXE (VGA/W) JOGO DE ESTRATEGIA 
188806 HDEPIC  (VGA/W/386/4Mb) JOGO DE SIMULACAO ESPACIAL 
JO901 04 HD ERICTHE UNREADY (VGA/W) ADVENTURE GRAFICO ANIMADO 
091404 HD ETERNAM (VGA/W) ADVENTURE GRAFICO ANIMADO 
087106 DD EXOTICCARS (VGA/EGA/W) CONHEÇA OS GRANDES CARROS 
DD FALLOUT JOGO ESTILO TETRIS 
DD FANTASY MANAGER JOGO DE BASEBALL 
0088305 HDFASCINATION (EGANGA/W) ADVENTURE GRAFICO ANIMADO 
090202 HD FLASHBACK (INGLESXVGA/W) JOGO DE AVENTURA 
5084503 HD FLASHBACK (FRANCESKXVGA/W) JOGO DE AVENTURA 
5086502 HD FUGHT SIMULATOR V (VGA/W) SIMULAÇÃO AERBA 

HD GABRIEL KNIGHT (VGA/W/386) ADVENTURE GRAFICO ANIMADO 
DD GNU CHESS POR WINDOWS XADREZ PARA WINDOWS 
D92802 HD GRANDMASTER CHESS DELUXE JOGO DE XADREZ (VGA/W) 
)0938 08 HD HANDS OF ag Nspples ad TA CO ANIMADO 

+ h . b Ú 





CQ 
GA/W) À AVENTURA COM 0 DETETIVE 
AVENTURA ESPACIAL 
(VGA/W) ADVENTURE GRAFICO ANIMADO 
HDJACK INTHEDARK (VGA/W) ADVENTURE GRAHCO ANIMADO 


097] 04 HD INSPECTOR GADGET (V 
DD INTERPHASE 
W$5008 HD ISLAND OF DR.BRAIN 


HD JET FLIGHTER (VGA) SIMULACAO AERPA - 

093501 HD'JET FLIGHTER U MISSION MISSÕES P/ JET FLIGHTER Il 

JO848 03 HD JORDAN IN FLIGHT(VGA/W/386 JOGO DE BASKETBALL 

JX94704 HD JURASSICPARK  (VGA/W) JOGO DE ACAO 

X87301 HD KABON (VGA/EGA) AVENTURA ESPACIAL 

D85701 HDKEN'SLABYRINTH (VGA) AVENTURA EM 3D 

D$46 08 HD LAISURES.LARRY V vr.VGA ADVENTURE GRAFICO ANIMADO 

X90708 HDLANDS OPLORE (VGA/W) ADVENTURE GRARCO EM “RPG” 

X92002 HD LASER SQUAD (VGA/W/386) JOGO DE ESTRATEGIA 

J093117 HD LEATHER G. OF PHOBOS [(W) ADVENTURE GRARCO EM “RPG” 

da HD LEGENDS OF VALOUR (VGA/W) ADVENTURE GRAFICO EM “RPG” 

e A HD LOST IN TIME (VGA/386/4Mb) ADVENTURE GRAFICO ANIMADO 
|! 

pesa HD MANTIS SPEECH PACK 

)87702 DD MENACE (VGA) JOGO DE ACAO ESPACIAL 

J88108 HD MIGHT MAGICV (VGA/W/386) ADVENTURE GRAFICO EM “RPG” 

X85204 HD MIXED-UP FAIRY TALES(VGA/W ADVENTURE GRAFICO ANIMADO 

X85501 HDMONSTER BASH — (EGA) JOGO DE AVENTURA 

)095103 HD MORTAL COMBAT (VGA/W/386) JOGO DE BRIGA DE RUA (4Mb) 

095601 HD NEW YORK SCENERY POR PS-5 CENARIOS PARA O FS-5 

J89902 HD NIGEL MANSELL CORN 

1095901 

X91001 

595501 HD PARIS SCENERY POR PS-5 CENARIOS PARA O PS-$ 

JX98103 HDPATRIOT (VGA/W/386/4Mb) JOGO DE ESTRATEGIA MILITAR 

W90901 HD PICK IN PILÊ JOGO DE INTELIGENCIA 


HD POKER POR WINDOWS 
J0975 12. HD POLICE QUEST IV(VGA/W/38 GRAR 

092204 HD PROTOSTAR(VGA/W/386/MOUSE) SIMULADOR ESPACIAL 
193707 HDRAGS TORICHES (VGA/W) JOGO DE INVESTIMENTOS 

091303 HD REALMS OF ARKANIA (VGA/W) ADVENTURE GRAFICO EM “RPG” 
FU RETUR ADSL ANIMADO 








ER 05 OP PRA N TOM t 


DIS doTNido) 
ACIMA DE 10 DISCOS 
5% 


AUVENIUREURANRÇO 


ACIMA DE 20 DISCOS 
10% 


CENTRAL INFORMÁTICA LTDA. 


RUA BARÃO DE ITAPETININGA, 88 CONJ.707 - CEP:01042-000 - SÃO PAULO - SP 
011)256-2544 / FAX:(011)259-8430 / BBS:(011)257- 


URV - 1.50 a vista 


considerar a URV do dia do pedido URV - 2.03 cartao 


5 1/4DD 


J918 12 HD RETURN TO ZORK (VGA/W/386) ADVENTURE GRAFICO EM 


JX$9007 HDRING WORLD  (VGA/W) ADVENTURE GRAFICO ANIMADO 
086001 DD pira e) o as Pena 


: 40.5,0,60 + é 
HDSAM é MIR (VGA EO AD E 
DO 
194406 HDSAN FRANCISCO SCENARY FS-5 CENARIO PARA O FS-5 
09610! HDSANGO FIGHTER  (VGA/W) JOGO DE BRIGA DE RUA 
196502 HDSEAL TEAM (VGA/W/386) JOGO DE ESTRATEGIA MILITAR 
DÓSIOS HD SHADOW OF COMET(VGA/W/386) ADVENTURE GRAFICO 
5 HD SHADOW OF YSERBIUS (VGA/W) ADVENTURE GRAFICO EM 
1095405 HD SHADOWCASTER (VGA/384/4Mb) ADVENTURE GRAFICO EM 


“RPG” 
10949 01 HD ILE ALA. Mestra ro 
30945 02,.HD SIM FAR MU 









X93%01t DDSOROBAN FOR Wi 
195801] HD SOLAR WINDS (VGA) JOGO ESPACIAL 
X878 04 HD SPACE HULK (VGA WO) AÇÃO EM LABIRINTO 





4Mb 

30969 ain A STARWARS CHESS(VGA/386/4Mb JOGO DE XADREZ 
(OTIMO!!! 

086101 HD STELLAR DEFENSE JOGO DE BATALHA ESPACIAL 
X90401 HDSTELLAR POR WINDOWS(VGA/W) JOGO DE ESTRATEGIA 
J84403 HD STRIKE COMMANDER SPEECH VOZES P/O STRIKE 


COMMANDER 
ada HD STRONG HOLD (VGA/W/386) ADVENTURE GRAFICO EM 


W97305 HDSUBWAR 2050  (VGA/W) SIMULADOR DE SUBMARINO 
Me 03 HDSVGA AIR WARRIOR(VGA/W/386 SIMULAÇÃO AEREA 


4Mb) 
X88905 HDSYNDICATE (VGA/W/386/4Mb) JOGO DE ACAO (OTIMO!!!) 
X94306 HD TERMINATOR RAMPA GE(386/4Mb JOGO DE AVENTURA 


3D(VGA/W) 
JD8$10! HD THE BLUES BROTHERS (EGA) JOGO DE ACAO 
)093004 HDTHEDARK HALF (VGA/W) ADVENTURE GRAFICO 


X906 0! HDTHE LOST VIKINGS (VGA) JOGO DE AVENTURA 

X88003 HDTORNADO  (VGA/W/386) SIMULADOR AEREO (OTIMO!!!) 
W96603 HD TROLLS' (VGA/W) JOGO DE A VENTURA 

tada HD UNLIMITED ADVENT UREVGAN) ADVENTURE GRAFICO EM 


PG” 
W97205 HDUSA WEST SCENARY (W)CENARIOS P/ FS-4,PS-S,ATP 
edad HD VEIL OFDARKNESS (VGA/W) ADVENTURE GRAFICO EM 
D89501 DD VIDEO BLAKJAK JOGO DE BLACKJACK 

DB 05 HD WAYNE HOCKEY IIVGA/W/386 JOGO DE HOQUEI 

J089601 DD WINCHESS FOR WINDOWS JOGO DE XADREZ 

J89304 HD WING COMM. ACADEMY (VGA/W) SIMULAÇÃO ESPACIAL 
J092601 HD WOLF STREET AGHTER II 3D ACAO 3D C/ OS PERSONAGENS 
591903 AD W.CPRIVATEER SPEECH PACK VOZES PARA O 
W.CPRIVATEER 

)91606 HD W.C.PRIVATEER(VGA/386/4Mb) SIMULADOR ESPACIAL 
)87001 HD X-WING MISSION MISSÃO PARA O X-WING 

)86401 HDZACK (EGA/W) JOGO DE INTELIGENCIA 

589801 HDZOOL (VGA XDEMO) JOGO ESTILO SONIC (DEMO) 


JOGOS WINDOWS 


COD DK TP NOME DESCRICAO 

X81702 HDAT.C.POR WINDOWS (W) SIMULACAO DE TRAFEGO AEREO 

X055101 HD BATTLE CHESS POR WINDOWS JOGO DE XADREZ ANIMADO 

5090501 HD CASTLE POR WINDOWS JOGO DE ESTRATEGIA 

J067701 HD CM3000 POR WINDOWS JOGO DE XADREZ (386/W/VGA) - 

ad e HD CROSSWORD FOR WINDO WS(2Mb) PALAVRAS CRUZADAS 
GLES) 

JX49501 DDDAMAS POR WINDOWS JOGO DE DAMAS P/ WINDOWS 

J277 01 HD GAME COLLECTION P/ WINDOWS JOGOS PARA WINDOWS 

X$7201 DD GAMESPOR WINDOWS 04 JOGOS PARA WINDOWS 

)067001 HD GAME PACK IPOR WINDOWS JOGOS P/ AMBIENTE WINDOWS 

)082702 HD GAME PACK 1 FOR WINDOWS JOGOS P/ AMBIENTE WINDOWS 

X66801 HD GAME PACK IN POR WINDOWS JOGOS P/ AMBIENTE WINDOWS 

X81902 HD GAME PACK IV POR WINDOWS JOGOS P/ AMBIENTE 

WINDOWS 

X8M401 DD GNU CHESS FOR WINDOWS XADREZ PARA WINDOWS 

J81102 HDMONOPOLY FOR WINDOWS (W) JOGO TIPO BCO.IMOBILIARIO 

J77303 HD MSGOLF F/WINDOWS(VGA/W/2Mb JOGO DE GOLF 

(WINDOWS) 

10886 02 HD PINBAL POR WINDOW(VGA/386) JOGO DE PINBALL (OTIMO!!!) 

X8620! HD POKER POR WINDOWS JOGO DE POKER PARA WINDOWS 

X77202 HDRISK POR WINDOWS  (W) JOGO DE ESTRATÉGIA 

155202 DD SIMCITY POR WINDOWS  MONTESUA CIDADE 

lit HD SIMEARTH POR WINDOWS (386) JOGO DE SIMULACAO DA 


090401 HD STELLAR POR WINDOWS(VGA/W) JOGO DE ESTRATEGIA 
J63301 DD SYMANTEC GAMES (WINDOWS) JOGO DE INTELIGENCIA 
JD1980t DD'TETRIS POR WINDOWS  TETRISP/ WINDOWS 

089601 DD WINCHESS FOR WINDOWS — JOGO DE XADREZ 





- Faça seu pedido por carta, Telex ou Fax. 
« Enviamos via Sedex e registrado. 

- Para pagamento via carta acrescentar 3 URV (para cada 
20 discos) de taxa de registro. 

CATÁLOGO ELETRÔNICO (1 DISCO HD) Para receber 
envie-nos 1,3 URV, 

« Para compras acimade CR$ 40.000,00 aceitamos 2 
cheques, 1 p/o dia e outro p/ 15 dias após. 





DINERS CLUB / CREDICARD / VISA 






1528 


URV - 2.00 a vista 
URV - 2.70 cartao 


JOGOS MAIS VENDIDOS 


COD DK TPNOME/DESCRI 
VGA) JOGO DE SIMULACAO DA TERRA 
VENTURE GRAFICO ANIMADO 





5 1/4HD 





e ne PO MNT at o e ce crime 


027304 DDSIM EARTH 
)0299 16 DD POLICE QUEST IVGA/EGA) AD 
D31004 DD (VGA/COLOR) JOGO DE AVENTURA 
531902 DD LOST ADMIRAL JOGO DE ESTRATEGIA MILITAR 
X37004 DDABC BOXING  (VGA/W) LUTA DE BOXE 
)37302 DD BLUE ANGELS ACROBACIAS AEREAS 
38807 DD NINJA TURTLES IXEGA/VGA) JOGO DE AVENTURA 
0391 06 HD MONKEY ISLAND  (VGA/W) ADVENTURE GRAFICO ANIMADO 
X40405 DD SIMPSONS E (VGA/COLOR) AVENTURA ANIMADA 
HD 4D BOXING (VGA) LUTA DE BOXE EM 4) 
HD EITA TUTOR (VGA) LICOES DE VOO NO CACA F117 
HD TETRIS COLLECTION (VGA) COLETANIA DE TETRIS 

3 HD LIPE AND DEATH II (VGA/W) SEJA O MEDICO DESTE JOGO 
K49203 HDRARDBAL MIBGANGA ARA) WGO DE BASEBALL. 
J46105 HDFALCON30 —(VGA/W) SIMULADOR DE AVIAO 
X46203 HDMARTIAN DREAMS (VGA) JOGO DE ACAO EM RPG 


ADVENTURE GRAFI : 

(VGAW) JOGO DE ACAO EM RPG 

JOGO DE XADREZ 
JOGO DE PINBALL 


152504 DD CHESS MASTER 3000 
)054101 DD MACADAM BUMPER 


554205 DDSECRET AGENT — (W) AVENTURA C/ AGENTES SECRET 
(VGA/W) Fls pari am AVIAO 


X55005 HDB-17 
J0567 A & 





J057905 HD ROGER RABBITH (V AVENTURA COM O PERSONAGEM 
J058001 HD WOLFSTEIN3ID (VGA) JOGO DE ACAO EM 3D 
X58101 HDPIT FIGHTER LUTA DE FULL-CONTACT 


J058201 DD COMMANDER KEEN KEGA/NGA) JOGO DE AVENTURA 
J58301 DD COMMANDER KEENT (VGA JOGO DE AVENTURA 
J58401 DD COMMANDER KEEN II (VGA) JOGO DE AVENTURA 
058908 HD GUY SPY (VGA) JOGO DE ACAO 


J59101 HDSTUNTDRIVE (VGA) CORRIDA DE CARROS 

059703 HD WOLF STEIN 3D (COMPLETO) AVENTURA EM3D (VGANW) 
X059802 HDCIVILIZATION (VGA) COLONIZE O PLANETA TERRA 
)059901 DD ULTIMA ADVENTURE GRAFICO EM “RPG” 
JO60001 a RE A a 





J651 02 HD GLOBAL CONQUEST (VGA/W) ESTRATÉGIA MILITAR 
X65202 HDFALCON 30MISSION MISSÕES P/O PALCON 3,0 : 
1065308 HD AMAZON (386/VGA/W/MOUSE) ADVENTURE NA AMAZONIA : 
065405 HD FIVEL (VGA/W) ADVENTURE GRAFICO ANIMADO 
X65502 HD CARRIERS AT WAR (VGA/W) ESTRATEGIA MARITIMA 

)065601 HD PACIFIC ISLAND JOGO DE ESTRATEGIA MILITAR 
J065706 HD P-15 STRIKE FAGLE T1(386) SIMDE AVIÃO OTIMO (VGA/W) 
W65803 HD COMMANCHE (VGA/W/386) SIMULADOR DE HELICOPTERO 
JO659 06 HDSTUNTISLAND (V 
J066003 HD ACE OF PACIFIC (386/W) 
Jó! 04 HD LEGEND OF KYRANDIA (VGA/W) 
J0662.05 HD QUEST POR GLORY WI(VGA/W) 
5067301 HD SIMPSONS 01 
)68009 HD KING 
1069409 HD DARK (VGA/W/386) ADVENTURE GRAFICO ANIMADO 
071203 HD WORLD CIRCUIT (VGA) JOGO DE FORMULA I(OTIMO!!) : 
J071304 HDCAR & DRIVER  (VGA/W) SIMULACAO AUTOMOBILISTICA ! 
J071409 HD MANTIS — (VGA/W/386) SIMULADOR ESPACIAL(OTIMO!) 
X71510 HD REX NEBULAR  (VGA/V) ADVENTURE GRAFICO EPACIAL 
JO71703 HDDARK SAVANT  (VGA/W) ADVENTURE GRAFICO EM “RPG” 
X71804 HDDUNEI (VGAN) ADVENTURE GRAFICO E, “RPG” 
W72403 HD TEGEI'S MERCENARY (VGA/W) ADVENTURE GRAFICO 


ANIMADO 
072605 HD ULTIMA UWORLDI (VGA) ADVENTURE GRAFICO EM “RPG” 
J073103 HD SPEAR OF DESTINY (VGA/W) AVENTURA EM 3D 

3073904 HD LINKS PRO386 (VGA/W/386) JOGO DE GOLF (OTIMO!!!) 
)74705 HDX-WING (VGA/W/386/4MB) SIMULADOR ESPACIAL 

J748 06 HD ULTIMA VI B.GATE (VGA/W) ADVENTURE GRAFICO EM “RPG” 
JX75001 HD RED BARON MISSION BUILDER MISSÕES PARA O RED BARON 
)075105 HD LORD OP THE RINGS (VGA/W) JOGO DE AVENTURA 

X75207 HD BATMAN RETURNS (VGA/W/386) JOGO DE 
AVENTURA(OTIMO!!) 

)075303 HD EYE OF BEHOLDER II (VGA/W) ADVENTURE GRAFICO EM “RPG” 
075408 HDGATE WAY Adiado, ESTRATEGIA ESPACIAL 
X75501 HD ULTIMA VI PORGE COMPL. P/U7 BLACK GATE 
76202 HD GUNSHP 2000 SCENARY (VGA) CENARIOS P/ O GUNSHIP 2000 
X76801 HD SPECTRE (VGA/W) JOGO ESPACIAL 
)76901 EDBUMPERS — (EGA/VGA) JOGO DE HABILIDADE 
377005 HD WEEN THE PROFECY (VGA/W) ADVENTURE GRAFICO 


ANIMADO 
X77101 DDLLAMATRON | (VGA/W) ACAO COM UM CAMELO 
e NTES DARK (VGA/W) ADVENTURE GRAFICO 











COCO CACALTULTCCSSDEDUDL TATO O NTCENADACRENTADLPLU UU TEA AA ana asa nnannDuntaa 
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Visual Basic - Parte 3 


Neste capítulo você irá criar o "Projeto Jogo da Velha" 


Ricardo Flores 


=| Jogo da Velha 


Arquivo 


O usuário Pentelho 
encomendou um Jogo 
da Velha. Assim que 
rodar o aplicativo, o 
próprio programa 
limparã as marcações 
existentes e escolherá 
umadas 9 posições para 
marcar com O (aletra 6). 
O Pentelho terá sua vez 
para marcar um X 
clicando um botão. Se 
uma sequência de 3 X 
ou 3 O ocorrer na hor 
zontal, vertical ou diago- 
nal o aplicativo informará o vencedor, ou seja, o micro (0) ou 
o Pentelho (X). 





INICIANDO UM NOVO PROJETO 


Menu File * New Project (Para iniciar um novo 

projeto.) 

Reposicione e dimensione o Formi com 2.760 twips de 
largura x 3.300 twips de altura 

Encontre e mude a propriedade Caption do objeto Fomi 
para Jogo da Velha 

Encontre e mude a propriedade BorderStyle desse objeto 
para 1 - Fixed Single (O efeito só aparecerá em tempo de 
execução.) 

Encontre e mude a propriedade MaxButton desse objeto 
para False (O efeito só aparecerá em tempo de execução.) 

Clique o botão “Gravar Projeto Corrente” e digite: 

JVELHA (Para nome do formulário) * OK 

JVELHA (Para nome do projeto) * OK 


CRIANDO A INTERFACE COM O USUÁRIO 


Botão de Comando (1º Botão da 1º linha e 1º coluna) 
Duplo clique na ferramenta Botão de Comando (0 objeto 
Commandi é criado no tamanho padrão pelo VB, no centro 
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do formulário.) 

Encontre e mude a propriedade Name do objeto Com 
mandi para bot 

Encontre e apague a propriedade Caption do objeto bot 

Redimensione e reposicione o objeto bot conforme 
modelo 

Com este botão ativado, tecle <Ctrl>+<C> para copiá-lo 
na Área de Transferência (A partir de agora você poderá 
reproduzir tal objeto usando <Ctrl>+<V>) 


DEMAIS BOTÕES DE COMANDO 
Tecle <Ctrl>+<V> para copiar tal objeto da Área de 


Transferência no formulário. 
O VB enviará o Quadro de Mensagem: 


Microsoft Visual Basic | 


é) 







You already have a control named 'bot'. Do 
you wantto create a control array? 


Isto quer dizer: “Você já tem um controle de nome bot”. 
Você quer criar um vetor de controle?” 
Ácione Yes [= Sim] 


Dessa forma, o VB criará botões de comando com as 
mesmas características, ou sejam, sem legenda e com 
mesmo nome. O que toma estes objetos independentes é 
o índice de cada botão, isto é, o primeiro incicia com zero - 
bot(0), o segundo com 1 - bot(1) e assim por diante. 

Tecle <Ctrl>+<V> (Para criar os demais botões.) 

Clique o botão “Gravar Projeto Corrente” (A partir de agora 
lembre-se de salvar seu projeto.) 

Rode o projeto * Observe a aparência do formulário N 
Termine Execução do Aplicativo 


Criando a Barra de Menu com a Janela de Desenho de 
Menu [= Menu Design Window] 


A Barra de Menu terá apenas um Menu Arquivo, contendo 
2 itens: Novo Jogo e Sair 
Ative o formulário * Menu Windows * Menu Design 


SITE DAO RAS nana na a OU DUB D OA DAS CEPE E AESA ACASO AS EDS D OCA SULONAIASILDA DAM NU O SAA 


Caption: |ANovo Jogo 


Name: am nen 


Index: Lo 


[) window | ist 


Lance! 


Shotcut: [Ciro Ta 
Hetpl ontexiD: [o | 


& Enabled Visiblo 


[] Chockcd 


el+[2[+) Lusa] Insert || Dolojo | 





Eis | A 
Solto Ciro 5 





" Nacaixa Caption, digite: 

&Arquivo 

O caractere precedido de & aparecerá sublinhado num 
menu, num item de menu, numa legenda ou num botão de 
controle, permitindo que tal controle seja selecionado pelo 
Pentelho, através do teclado. 

Na caixa Name, digite: 

mnuÃrquivo 

Acione o botão Next [= Próximo] 

Na caixa Caption, digite: 

&Novo Jogo 

Na caixa Name, digite: 

itmNovo 

Nacaixa combo Shortcut: [= Teclas de Atalho], sele-cione: 
Ctrl+N 

DICA: É necessário teclar <Alt> e a letra sublinhada para 
acessar um menu. É necessário ter um menu aberto para 
acessar a letra sublinhada de um item de menu. Já as teclas 
de atalho ativam os itens de menu de qualquer local do 
aplicativo. Sabendo disto, escolha a tecla de atalho de forma 
que identifique um objeto de forma inequívoca. 

Acione o botão para este item de menu ficar endentado 

Acione o botão Next [= Próximo] 

Na caixa Caption, digite: &Sair 

Na caixa Name, digite: itmSair 

Na caixa de lista Shortcut selecione: Ctrl+S 

OK 

Clique o botão “Gravar Projeto Corrente” 

Rode o projeto N Faça diversos testes | Temine a 
Execução 


Escrevendo o Código Basic do Item de Menu Salir 
Clique o menu Arquivo do formulário 
Clique o item Sair desse menu (O VB escreverá O 








gabarito:) 
Sub itmSair Click () 
End Sub 
Complete o código com End que encerra o programa, 
retirando o formulário da tela: 
Sub itmSair Click () 


Escrevendo o Código Basic do Item de Novo Jogo 
Clique o menu Arquivo do formulário N Clique o item No 
Jogo desse menu | 
(O VB escreverá o gabarito:) 
Sub itmNovo. Click () 
End Sub 

A declaração Call chama um procedimento Sub ou uma 
Biblioteca de Ligação Dinâmica [= DLL = Dynamic-Link 
Library]. A declaração Call é opcional, ou seja, você poderia 
digitar apenas JogoNovo. Ela foi mantida para possibilitar a 
compatibilidade entre outras versões Basic. Complete o 
código com Call JogoNovo como segue: 

Sub itmNovo Click () 

Call JogoNovo 

End Sub 

Escrevendo o Código Basic do Objeto Form 

Na Janela de Código, selecione o objeto Form (O VB 
escreverá o gabarito:) 

Sub Form Load () 

End Sub 

Note que o evento Load é automaticamente selecionado 
pelo VB. O evento Load ocorre sempre que um formulário 
entra em ação. Portanto, é aqui que escrevemos as rotinas 
iniciais para este formulário. 

A declaração Randomize sem parâmetros buscará na 
função Timer um valor para realimentar o gerador de 
números aleatórios do VB. Dessa forma, o primeiro número 
aleatório a ser gerado pela função Rnd sempre será um 
número diferente. 

Isto posto, complete este procedimento: 
Sub Form Load () 
Randomize 
Call JogoNovo 
End Sub 
Criando um Procedimento Geral do Formulário 
Ative o formulário N Acione o Menu View [= Visualisar] N 
New Procedure... [= Procedimento Novo...] * Digite na caixa 
Nome: JogoNovo N OK 


= New Procedure o 


Type 
O Sub O Function 








JogoNovo) 


Name: 


Note que na combo Object, surge: (general) e na combo 
Proc: JogoNovo. O VB escreverá o gabarito: 
Sub JogoNovo () 
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End Sub 
DICA: Outra forma de criar um procedimento Geral seria 
digitar na primeira linha da Janela de Código, rente à margem 
esquerda: Sub JogoNovo <Enter> 


Tudo que estiver dentro da estrutura de programação For 
/ Next será repetido 9 vezes, iniciando em O e terminando 
em 8. 

Os botões de comando bot de índices de O a 8 ficarão 
sem legenda. 

A função Rnd retorna um número de precisão simples 
entre O e 1. Tal número é multiplicado por 9 porque 
queremos um valor de O a 8. Usamos a função Int porque 
queremos somente a parte inteira desse número, que será 
armazenada na variável M. 

A propriedade Caption do botão bot cujo índice está 
guardado em M será a letra “O”. 

isto posto, complete este procedimento: 
Sub JogoNovo ( ) 

Fori=0O To8 

bot(i).Caption = “” 

Next i 

M = Int(Rnd * 9) 

bot(M).Caption = “O” 
End Sub 


Escrevendo o Código Basic do Objeto bot( ) 

Na Janela de Código, selecione o objeto bot (O VB 
escreverá o gabarito:) 

Sub bot Click (Index As Integer) 

End Sub 

Observe que o VB além de fomecer o gabarito, declara a 
variável Indexcomo inteiro. Quando o Pentelho clicar umbot, 
o VB passa para este procedimento o respectivo índice do 
botão de comando. 

Se [= If] a legenda do botão clicado for diferente [<>] 
de nada [ "” |, isto é, já possui legenda, então [= Then] os 
comandos entre If / End If serão executados. 

Adeclaração MsgBox tem a sintaxe MsgBox (mensagem$ 
[, valor [título$])]), onde a mensagem é o que você deseja 
informar ao Pentelho. Título é o que será exibido como título 
no Quadro de Mensagem e o valor representa um conjunto 
de botões e ícones prontos que podem ser exibidos no 
Quadro de Mensagem conforme tabela: 


Valor Exibe: 

O somente botão OK 

41 botões OKe CANCEL 

2 botões ABORT, RETRY e IGNORE 

3 botões YES, NO e CANCEL 

4 botões YES e NO 

5 botões RETRY e CANCEL 

16 ícone Stop de Mensagem Crítica [= Critical Message] 

32 cone ? de Waming Query [= Pegunta de Advertência] 

48 ícone! de Warning Message [=Mensagem de 
Advertência] 

64 icone i de Information Message [= Mensagem de 
Informação] 

O  4ºbotão como foco 
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256 2º botão com o foco 
512 3º botão com o foco 


Os valores da tabela acima podem ser somados. Por 
exemplo, se você desejasse exibir um Quadro de Mensagem 
com os botões Yes, No e Cancel e com o ícone de Stop, 
bastaria você somar 3 + 16 e o resultado 19 informar na 
linha de comando da MsgBox. Em nosso aplicativo está 
implícito O + 64, na linha: MsgBox “Este botão já foi 
acionado.”, 64, “Erro” 


(1) Este botão já foi acionado. 


Se MsgBox for usada como uma função, poderá retomar 
os valores: 





Significa: 

Botão OK pressionado 
Botão Cancel pressionado 
Botão Abort pressionado 
Botão Retry pressionado 
Botão Ignore Pressionado 
Botão Yes pressionado 
Botão No pressionado 


Valor 


“90 6wWNR 


Após o Pentelho acionar o botão OK a execução do 
programa sairá deste procedimento [= Exit Sub). 
Se o Pentelho acionar um botão sem legenda, a 
propriedade Caption desse botão será mudada para “X”. 
Isto posto, complete o procedimento: 
Sub bot Click (Index As Integer) 
If (bot(Index).Caption < > “”) Then 
MsgBox “Este botão já foi acionado.”, 64, “Erro” 


Exit Sub 
End If 
bot(Index).Caption = “X” 
End Sub 


Rode o projeto N Execute diversos testes Y Termine a 
Execução do Aplicativo 


Se uma sequência de 3 X ou de 3 O ocorrer na horizontal, 
vertical ou diagonal o aplicativo desviará [= GoTo] a execução 
do programa para o rótulo MensO: no caso de sequência de 


30 ou para o rótulo MensX: no caso de sequência de 3 X. 


Da forma que o código foi escrito a posição dos botões no 
formulário tem que ser conforme tabela ao lado. Se | 
inicialmente você posicionou os botões em outra ordem 


basta arrastá-los e depositá-los no formulário na ordem M = Int(Rnd * 9) “Gera e guarda em M um número 


correta. aleatório de O a 8. 
Loop 
bot(0)  bot(Z)  bot(2) bot(M).Caption = “0” 
bot(3)  bot(4)  bot(5) If (bot(0).Caption = “O” And bot(1).Caption = “O” And 
bot(6)  bot(7)  bot(8) bot(2).Caption = “O”) Then GoTo MensO 


If (bot(3).Caption = “O” And bot(4).Caption = “O” And 
O VB ficará gerando um número randômico até [= Until] bot(5).Caption = “O0”) Then GoTo MensO 
“acertar” numbot() cuja propriedade Caption seja nenhuma. If (bot(6).Caption = “O” And bot(7).Caption = “O” And 
À propriedade Caption desse botão sem legenda será bot(8).Caption = “O”) Then GoTo MensO 


mudada para “O”, If (bot(0).Caption = “O” And bot(3).Caption = “O” And 
isto posto, complete o procedimento: bot(6).Caption = “O”) Then GoTo MensO 
Sub bot Click (Index As Integer) If (bot(1).Caption = “O” And bot(4).Caption = “O” And 
If (bot(Index).Caption < > “”) Then bot(7).Caption = “O”) Then GoTo MensO 
MsgBox “Este botão já foi acionado.”, 64, “Erro” If (bot(2).Caption = “O” And bot(5).Caption = “O” And 
Exit Sub | bot(8).Caption = “O”) Then GoTo MensO 
End If If (bot(0).Caption = “O” And bot(4).Caption = “O” And 
bot(Index).Caption = “X” bot(8).Caption = “O”) Then GoTo MensO 
If (bot(0).Caption = “X” And bot(1).Caption = “X” And If (bot(2).Caption = “O” And bot(4).Caption = “O” And 
bot(2).Caption = “X”) Then GoTo MensX bot(6).Caption = “O”) Then GoTo MensO 
If (bot(3).Caption = “X” And bot(4).Caption = “X” And Exit Sub 
bot(5).Caption = “X”) Then GoTo MensX MenskX: 
If (bot(6).Caption = “X” And bot(7).Caption = “X” And MsgBox “Você”, 64, “Vencedor” 
bot(8).Caption = “X”) Then GoTo MensX Call JogoNovo 
If (bot(0).Caption = “X” And bot(3).Caption = “X” And Exit Sub 
bot(6).Caption = “X”) Then GoTo MensX MensoO: 
If (bot(1).Caption = “X” And bot(4).Caption = “X” And MsgBox “Micro”, 64, “Vencedor” 
bot(7).Caption = “X”) Then GoTo MensX Call JogoNovo 
If (bot(2).Caption = “X” And bot(5).Caption = “X” And Exit Sub 
bot(8).Caption = “X”) Then GoTo MensX End Sub 
If (bot(0).Caption = “X” And bot(4).Caption = “X” And Rode o projeto * Execute diversos vo saea SIDO 
bot(8).Caption = “X”) Then GoTo MensX a Execução do Aplicativo 


If (bot(2).Caption = “X” And bot(4).Caption 
bot(6).Caption = “X”) Then GoTo MensX 
ia Rn ) ] eh Ricardo Flores é Auditor, formado em Administração e 
is Ciencias Contábeis pela Cândido Mendes. Criou método 
Do Until bot(M).Caption = próprio de treinamento em DOS, Lotus, Clipper, Etc. 


“X” And Até a próxima. 
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Clipper 5.01/5.2 


Aprenda um pouco mais sobre Programação Orientada para 
Objetos e como aplicá-la em seus programas 


Júlio César da Costa 


Em geral quando falamos de Programação Orientada a 
Objetos (OOP), muitas pessoas ainda não entendem 
exatamente o significado desta nova técnica. É importante 
entendermos que a ORIENTAÇÃO A OBJETOS (00) nada 
mais é do que uma nova ótica para analisarmos o problema 
e propormos uma solução. Estretanto, isto não quer dizer 
que a OO rompa com os conceitos até agora aplicados e 
sacramentados como a PROGRAMAÇÃO ESTRUTURADA e 
MODULAR, pois a OO é um conceito que engloba estes, 
complementando-os. 

Para buscar compreender melhor como isto funciona, 
vejamos um problema e duas soluções típicas, uma 
TRADICIONAL, usando apenas a PROGRAMAÇÃO 
ESTRUTURADA e MODULAR e outra usando ORIENTAÇÃO a 
OBJETOS. 

Imagine que você esteja fazendo um SOFTWARE 
APLICATIVO onde a cada MÓDULO/TELA você tenha um 
conjunto de teclas que acionam uma tarefa específica. 
Agora imagine que estas teclas terão muito pouca utilidade 
se o usuário não tomar conhecimento de sua existência, e 
paratal você deverá apresentá-la em uma área específica da 
tela à medida que os módulos vão se sucedendo. Se você 
for um daqueles programadores “ligadões” em UDFs vai 
pensar em algo como: 


MODO TRADICIONAL 


a) FUNÇÃO: 

DispTeclas( CMENSAGEN ) ou 

DispTeclas(nMSG ) onde nMSG é o índice de um array que 
você carregará previamente com todas as mensagens 
necessárias. 


b) APLICAÇÃO: 
Aposto que você imaginou codificar cada módulo do seu 
programa como abaixo: 
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FUNCTION MODULOX 
DispTeclas( nMSGMODULOX ) 


( CORPO DO MÓDULO ) 


DispTeclas( nMSGMODULOANTERIOR ) 
retum 


Ou ainda você poderia ter uma variável pública chamada 
nMSGATUAL que sempre fosse atualizada a cada utilização 
de DispTeclas() de modo a sempre corresponder ao índice 
da mensagem que estivesse impressa no vídeo, quando 
então você poderia ter: 


DispTeclas( nMSG ) —> nMSGANT, que é o índice 
corrente antes da mudança. 


E os seus módulos seriam elegantemente codificados 
para: 


FUNCTION MODULOX 
LOCAL nMSGANT 
nMSGANT = DispTeclas( nMSGMODULOX ) 


( Corpo do Módulo ) 


DispTeclas( nMSGANT ) 
retum 


SOLUÇÃO ORIENTADA A OBJETOS 


Considerando que este tipo de mensagem é uma peça 
fundamental dentro da nossa INTERFACE com o usuário, 
nós determinariamos duas coisas para nossa solução 
ORIENTADA A OBJETO: 


A) Estrutura dos Dados Importantes para execução da 
Tarefa: 


Estes dados são chamados de ATRIBUTOS do objeto e o 
caracterizam como peça individual no programa. Nossa 
solução OOP poderia ter os seguintes ATRIBUTOS: 


STACK = Pilha de mensagens. Seria um vetor contendo 
a sucessão das mensagens impressas onde o último 
elemento conteria a mensagem atualmente impressa, o 
primeiro elemento, a linha salva por SAVESCREEN() no 
momento da impressão da primeira mensagem (para apagar 
as mensagens retornando com precisão ao conteúdo ante- 
rior da posição) e o segundo elemento seria a primeira 
mensagem impressa; 


COLOR = STRING de cor para impressão da mensagem; 


nRow, nCol = Coordenadas de Linha e Coluna indicando 
a posição onde a mensagem será impressa; 


BLOCK = Como uma opção para os usuários deste 
objeto, poderemos definir um CODE BLOCK que faça o 
tratamento do argumento passado para a FUNÇÃO DE 
IMPRESSÃO (terá de haver uma), devolvendolhe amensagem 
aserimpressa correspondente ao argumento. Normalmente 
este CODE BLOCK poderia ser (IXIX], ou seja, a MENSAGEM 
a ser impressa é o próprio argumento recebido por esta 
função. 


B) Conjunto de AÇÕES que esta estrutura de dados, que 
constitui o CORPO do objeto, poderá sofrer para 
processamento: 


IMPRESSÃO = Apresentar a mensagem natela. É a ação 
mais óbvia que este objeto pode sofrer e chamaremos a 
“FUNÇÃO” (em OOP chamamos de MÉTODO), por 
DISPLAY(<exp>) onde <exp> é um argumento de qualquer 
tipo que será processado pelo CODE BLOCK amazenado no 
atributo BLOCK para obtermos a mensagem a ser impressa. 
Este mecanismo faculta muitos recursos, entre os quais: 


Limitar o tamanho da mensagem : (IXlleft(X, TAM)) 

- Usar vetor com mensagens : (IXIaMSG[X) 

« Fazer Scroll conforme crescimento da mensagem : 
(IXIright(X, TAM)) 

« Centralizar mensagem : (IXIpade(X,80)) 

Outros recursos poderão ser desenvolvidos pela 
conveniente codificação deste CODE BLOCK. Flexível, não? 


REIMPRESSÃO da mensagem anterior na pllha = 
Apresentar a penúltima mensagem impressa no vídeo 
(quando uma função com sua própria mensagem retoma ao 
procedimento que a executou). Perceba que distinguimos 
esta ação da ação de IMPRIMIR já que o controle da 
sucessão de mensagens já está embutido no objeto, coisa 
que a abordagem tradicional relegava à posteridade, mas 
que aqui tomase a principal característica do objeto. 
Chamaremos esta função de RECALL(). 

APAGAR as Mensagens Impressas = Ao final de um 


módulo, ou mesmo a qualquer momento da execução deste, 
pode ser interessante retirar a mensagem da tela (quando 
por exemplo, é acionado um procedimento que DESABILITA 
todas as teclas somente até sua conclusão), Esta AÇÃO 
também era deixada de lado na abordagem tradicional, o 
que tomava a rotina dependente de outras partes do 
programa que tinham de conhecer a posição da mensagem 
e seu tamanho para apagá-la da tela, sempre correndo o 
risco de usar cores incompatíveis com a tela original no 
momento da impressão da primeira mensagem. É claro que 
tudo isto pode ser corrigido, mas o fato de corrigir TOMA 
TEMPO, o ideal é que acertemos da PRIMEIRA VEZ! 
Chamaremos esta função de CLEAR(). Note que assim como 
em RECALL() não há qualquer necessidade de parâmetros, 
já que toda informação necessária para sua execução já se 
encontra disponível entre os atributos do objeto. 

O nosso próximo passo seria IMPLEMENTAR estas 
funções, que em OO0P chamamos de MÉTODOS numa 
alusão ao fato de que cada uma manipula os ATRIBUTOS do 
objeto por um método próprio buscando um fim próprio, que 
como definimos anteriormente são as AÇ<184>ES que o 
objeto poderá sofrer durante o seu processamento. Ao 
implementarmos os métodos de um objeto, devemos ter 
sempre em mente DUAS pequenas REGRAS: 


1) Um método só pode operar sobre ATRIBUTOS DO SEU 
OBJETO ou sobre argumentos recebidos como parâmetros; 

2) Os atributos de um objeto só devem sertratados pelos 
SEUS PR<209>PRIOS MÉTODOS. 


UM POUCO DE CONCEITOS 


Bom, quando chegamos a este ponto, temos que fazer 
algumas “ressalvas conceituais”, e vamos começar pela 
aplicação da palavra OBJETO até aqui. O que estamos 
fazendo, não é a DEFINIÇÃO de um OBJETO e sim de uma 
CLASSE. A forma mais prática de explicar a alguém que mexa 
com programação o que é uma CLASSE é dizer que ela está 
para o OBJETO da mesma forma que um TIPO DE DADOS 
está para uma VARIÁVEL DE MEMÓRIA. A CLASSE é a 
definição de seus ATRIBUTOS e a codificação de suas 
FUNÇÕES (oops, MÉTODOS), enquanto que um OBJETO são 
os valores de seus atributos sendo manuseados por uma 
aplicação através de MENSAGENS que é o nome dado a 
chamada e execução de um MÉTODO para um OBJETO 
específico, resumindo: 


CLASSES = tipos de objetos; 

OBJETOS = Valores dos atributos utilizados em um 
procedimento; 

MENSAGENS = acionamento de um método usando um 
objeto; 

MÉTODO = Ação a qual um objeto pode ser submetido 
durante o processamento. 


LINGUAGENS DE PROGRAMAÇÃO 
Neste ponto, podemos nos preocupar com as linguagens. 
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A OOP possui sintaxe para tornar mais apropriado o 
entendimento e o manuseio de seus conceitos, como por 
exemplo: 


- Envio de mensagem para o objeto TECLAS para mostrar 
a string “Fi: HELP” (Também conhecido como execução da 
função Display()): 
TECLAS:Display( “F1: Ajuda” ) 
- Consulta ao valor do atributo nRow do objeto TECLAS: 
TECLAS:nRow 


- Atribuição de um valor ao atributo nRow do objeto 
TECLAS: 


TECLAS:nRow := 
evitado ) 


dO ( Normalmente deve ser 


O uso desta sintaxe aumenta o conforto de trabalharmos 
com OOP, e, naturalmente uma LINGUAGEM DE 
PROGRAMAÇÃO ORIENTADA A OBJETO ou com recursos de 
orientação a objeto deve dar o suporte necessário a definição 
de classes e a utilização desta sintaxe entre outros recursos, 
no entanto não poderemos esperar que isto no CLIPPER seja 
tão natural quanto o é para linguagens como C++, TURBO 
PASCAL (5.5 e posteriores) e outras, que já são projetadas 
com recursos de ORIENTAÇÃO a OBJETO. 


UTILIZAÇÃO COM O CLIPPER 


O CLIPPER não é uma LPOO (linguagem de programação 
orientada a objeto) propriamente dita, já que não possui 
recursos internos para DEFINIÇÃO DE NOVAS CLASSES e só 
aceita sintaxe de OOP para as quatro classes nativas (GET, 
ERROR, TBROWSE e TBCOLUMN). Entretanto nem tudo está 
perdido, já que podemos usar os recursos presentes a partir 
da versão 5 do CLIPPER para possibilitar a criação de 
PSEUDO-CLASSES. Estes recursos são: 


1) Diretivas de pré-processador, em especial HTRANS- 
LATE; 


2) Os novos ARRAYS do CLIPPER, que além de estruturas 
MULTIDIMENSIONAIS, são HETEROGÊNEOS (cada elemento 
pode ser de umtipo e tertamanho diferentes) e ainda podem 
ser retomados por uma função. 


O processo de criação de uma CLASSE, aliás, PSEUDO- 
CLASSE, CLIPPER, embora não seja tão natural quanto em 
uma LPOO, também não é nenhum “bicho de sete cabeças”, 
O que passaremos a explicar com auxílio das nossas 
listagens contendo a implementação completa da CLASSE 
DE MENSAGENS e mais um PROGRAMA EXEMPLO de seu 
funcionamento. 


a) LISTAGEM 1: PSCLASS.CH 
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Neste HEADER são definidas as sintaxes de declarações 


“que serão normalmente usadas por todas as CLASSES e 


programas que as utilizem. Esta sintaxe foi adaptada do livro 
“PROGRAMAÇÃO ORIENTADA A OBJETO EM CLIPPER 5.0”, 
leitura obrigatória para quem quiser se aprofundar no 
assunto. Vamos as declarações: 


1) CONSTRUCTOR <função> ( <exp,...> ) 


Define a função responsável pela CRIAÇÃO de um 
OBJETO DA CLASSE. Toda classe deve ter pelo menos um 
CONSTRUTOR, basta lembrar as 4 classes nativas do 
Clipper com seus 5 construtores, (a CLASSE TBROWSE 
possui 2 CONSTRUTORES, TBrowseNew() e TBrowseDB()). 

Um construtor difere de um MÉTODO a medida em que se 
trata de um PROCEDIMENTO DE INICIALIZAÇÃO executado 
para TODOS os objetos de uma CLASSE e não para um 
objeto específico. | 


2) METHOD <função> CLASS <classe> [ MESSAGES 
<exp,...> | 


Define uma função manipuladora dos dados de umobjeto 
específico. Um método pode ou não possuir MESSAGES 
(argumentos) mais sempre vai pertencer a uma CLASSE. 


3) OBJECT LOCAL N STATIC N PRIVATE N PUBLIC 
Declarar o ESCOPO do objeto. 
b) LISTAGEM 2 : MSGCLASS.CH 


Este HEADER contém as diretivas Ftranslate que nos 
permitem manusear os atributos e as mensagens da nossa 
PSEUDO-CLASSE através da sintaxe apropriada da OOP. 

Ele converte as referências a cada ATRIBUTO de um 
OBJETO em uma referência a um elemento de um ARRAY 
com o mesmo nome deste OBJETO, onde realmente os 
dados do OBJETO serão armazenados. Da mesma forma, 
converte uma MENSAGEM em uma chamada da função 
apropriada onde pelo menos o ARRAY que representa o 
OBJETO é passado como ARGUMENTO para esta função, 
desta forma os “ATRIBUTOS” do objeto são compartilhados 
entre todos os métodos da classe. Note que como o ARRAY 
é passado por referência, €<obj>, todos os métodos 
poderão modificar seu conteúdo. 

Ainda sobre as “MENSAGENS”, observe que na tradução 
as funções tiveram seu nome acrescidos do prefixo “msg”, 
isto foi feito para evitar conflitos com outros nomes de 
funções ou MÉTODOS de outras PSEUDO-CLASSES com o 
mesmo nome, (num C++ isto não seria necessário, pois a 
própria linguagem se preocuparia em evitar estes conflitos). 

Para cada PSEUDO-CLASSE que criemos, deveremos ter 
um HEADER como MSGCLASS.CH, o qual deverá ser usado 
no fonte que implementa os MÉTODOS da classe e nos 
fontes dos programas que a utilizam. 


c) LISTAGEM 3 : MSGCLASS.PRG 


OA 





Este é o fonte onde IMPLEMENTAMOS os métodos e o 
construtor da classe de mensagens. Observe o uso do 
HEADER MSGCLASS.CH nesta listagem e como não foi 
necessário especificar PSCLASS.CH, já que este jáfoi usado 
dentro de MSGCLASS.CH. 

Observe também que a sintaxe da OOP descrita nestes 
HEADERS já começa a ser usada na implementação de suas 
próprias classes, e veja como isto simplifica o nosso 
entendimento do fonte. Imagine trocar cada referência a um 
atributo da classe pela referência ao elemento do ARRAY 
correspondente! | 


d) LISTAGEM 4 : MSGTESTE.PRG 


A listagem 4 é um programa que utiliza a classe MSG para 
apresentar o nome do módulo corrente a cada chamada/ 
retorno de função. Observe que o uso do HEADER 
MSGCLASS.CH é o que vai possibilitar o uso da sintaxe de 
OOP em nossos aplicativos. 

Esta não foi a aplicação que sugerimos durante o projeto 
da classe, entretanto mostra como uma classe pode ser 


reutilizável em tarefas similares àquela para qual foi criada, 


dispensando alterações em seus fontes, coisa difícil de 
acontecer quando usamos a abordagem tradicional. 


MSC NAS 


* MSGClass.Ch ... 
MENSAGENS. 
* Autor 


Costa Oliveira. 
+ 


: HEADER da CLASSE de 


: Julio Cesar da 


tinclude “PSCLASS. 


SA a ii 
Declaracao dos atributos da classe. 
w/ 


«<obj>: stack 
«<obj>:color 
«<obj>: block 
«<obJ>:nRow 
«<obJ>:nCol 


ttranslate 
ftitranslate 
ttranslate 
ttranslate 
ttranslate 


<obj>1[1] 
<obj>1 [2] 
<obJj>1[3] 
<obJ>1 [4] 
<obJ>1[5] 


/* 
Declaracao dos metodos da classe. 
*/ 


ttranslate .<obj>:msgDisplay(<exp>)=> 
msgDisplay (G<obj>, <exp>) 

ttranslate .<obj>:msgClear() 

=> msgClear (e<obJ>) 

fttranslate .<obj>:msgReCall() 
msgReCall (€G<obj>) 





MSGCLASS.PRG 


* 


* MSGClases.Prg ... Implementacao dos 


metodos da classe MENSAGENS. 


* Autor 
Costa Oliveira. 
* 


Julio Cesar da 





FINALIZAÇÃO 
O presente artigo teve a intenção de: 


a) Apresentar os conceitos básicos fundamentais da 
OOP; 


b) Mostrar, através de um exemplo, qual o raciocínio 
empregado para desenvolver uma classe, e qual a sua 
diferença do reciocínio empregado para desenvolver um 
módulo; 


c) Mostrar e explicar o processo de como implementar 
CLASSES usando os recursos disponíveis no CLIPPER 5.xx; 


d)Levaro leitor a refletir sobre as vantagens e desvantagens 
da aplicação da OOP em seus programas. 


formado pelas Faculdades Integradas Simonsen. É co-autor 
dolivro Técnicas Administrativas Informatizadas para Tomada 
de Decisão - editado pela Ciência Modena Computação Ltda. 


JÚLIO CÉSAR DA COSTA OLIVEIRA é Analista de Sistemas, 


tinclude “MSGCLASS.CH” 


* 
Constructor MSGNEW(L, C, COR, BLOCK) 
* 


w Construtor de objetos da classe 
MENSAGENS. 

* 

local obj [5] 

obj [1] O 

obj [2] 1f(COR==NIL, setcolor(), COR) 
objJ [3] if (valtype(tBLOCK)=”"B”, BLOCK, ( 
IX] X 3 
ob3 [4] L 

obj [5] E 

return (obJ) // Retorna “OBJETO” 
criado a partir dos argumentos. 


u--—ntaa 


* 


Method msgDisplay Class oMSG MESSAGES 
cMSG 
* 
+ Metodo que apresenta uma mensagem na 
tela. 
w 
local dMSG, nStack 
nStack = len(.oMSG:stack) 
lf nStack = 0 
aadd(.oMSG: stack, 
savescreen(.oMSG:nRow, .oMSG:nCol, 
- OMSG:nROW, 79)) 
endif 
1f cMSG == NIL .and. nStack > 1 
dMsG = atail(.oMSG:stack) 


elseif cMSG == NIL 
- OMSG:msgClear () 


elself !IcMSG == NIL 
dMSG = eval(.oMSG:block, cMSG) 
aadd (.oMSG: stack, cMSG) 
- OMSG:msgClear() 
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& .oMSG:nRow, .oMSG:nCol say dMSG 


COLOR .oMSG:color 








endif 
return 






% 
Method msgRecall Class oMSG 
w 








* Metodo que retorna a penultima 
mensagen da pilha como mensagem 
* corrente. 
+ 
local cMSG, dMSG, nStack 
nStack = len(.oMSG:stack) 
1f nStack > 2 
asize(.oMSG:atack, nStack - 1) 
cMSG = atail(.oMSG:stack) 
dMSG = eval(.oMSG:block, cMSG) 
- OMSG:msgClear () 
G& .oMSG:nRow, .oMSG:nCol say dMSG 
COLOR .oMSG:color 






















else 
- OMSG:msgClear () 
-OMSG: stack = () 







endif 
return 






À —e a e err 
Method msgClear Class oMSG 
* 





* Metodo que apaga a mensagem corrente 

da tela. 

a 

if len(.oMSG:stack) = 0 
return /( 

salva na pilha. 






Nao tem tela 











else 
restscreen(.oMSG:nRow, .oMSG:ncCol, 
-0MSG:nRow, 79, .oMSG:stack[1]) 








endif 
return 


É o 

* PsClass.Ch ... : Header de 
definicoes gerais de PSEUDO-CLASSES. 
* Adaptado do livro PROGRAMACAO 






ftranslate CONSTRUCTOR <funcao> ( 
<eXxD,...> ) =>; 
FUNCTION <funcao> ( <exp> ) 


ftranslate METHOD <funcao> CLASS <classe> 
=>; 
FUNCTION <funcao> (<classe>) 


ftranslate METHOD <funcao> CLASS <classe> 
MESSAGES <exp,...> =>; 

FUNCTION <funcao> (<classe>, 
<exp>) 


ftranslate OBJECT LOCAL <objeto,...> =>; 
LOCAL <objeto> 


translate OBJECT STATIC <objeto,...> =>; 
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STATIC <objeto> 


fHtranslate OBJECT PUBLIC <objeto,...> =>; 
PUBLIC <objeto> 


ftranslate OBJECT PRIVATE <objeto,...> 
=>; 


PRIVATE <objeto> 








* 


* MSGTeste.Prg ... : 
classe MENSAGEM. 

» AULOL sarcasmo 
Costa Oliveira. 

* Rio de Janeiro, 


1993. 
+ 






Peste de uso da 






Julio Cesar da 


e. 





29 de Dezembro de 













Hinclude 'MSGCLASS.CH' 
set procedure to MSGCLASS.PRG 







clear screen 






object public MODULO 

modulo = MsgNew(10,10) // 

objeto “modulo” atraves do 
// do construc- 

Note que COR e BLOCK sao 

// opcionais. 


Criacao do 







tor. 









-«modulo:msgDisplay( ” Modulo Master *”) 
(| Envio de uma Mensagem 

inkey (0) 

mod () 

inkey (0) 

mod2 (modulo) 

inkey (0) 
«modulo:msgRecall() 









return 










function modi 
«modulo:msgdisplay(” MODULO 1 “) 
inkey (0) 
modil() 
inkey (0) 
-modulo:msgrecall() 











return 





function modii 
«modulo:megdisplay(” MODULO 1.1 “) 
inkey (0) 

«modulo:mesgrecall() 






return 











function mod2 
“modulo:msgdisplay(” MODULO 2 *) 
inkey (0) 

«modulo:msgrecali() 







return 





MONTE SEU PRÓPRIO AT 286, 386 OU 486 
TRANSFORME SEU XT EM AT (OU 286 EM 386/486) 
CONSERTE E CONSERVE VOCÊ MESMO SEU PC 


INSTALE SEU MOUSE, MODEM, SCANNER, ETC... 


Com os livros do Eng. LAÉRCIO VASCONCELOS 


COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 
AGORA VOCE JA PODE COMPRAR ESTE LIVRO NAS TRES MAIORES LIVRARIAS 
DE INFORMATICA DE SAO PAULO: BOOKWARE, LITEC E CULTURA. 

ESTAMOS CADASTRANDO LIVRARIAS E REVENDAS EM TODO O BRASIL. 


Aborda: Montagem de XT e de AT 286, 386SX, 386DX e 486. Detalhes sobre fontes e gabinetes. Instalação elétrica: filtros de linha, NO-BREAKS, 
estabilizadores, aterramento. Tudo sobre DRIVES. Placas de vídeo e monitores CGA, HERCULES, EGA, VGA e SUPER VGA. Como escolher um bom monitor 
e uma boa placa de vídeo. Placas MULTI-VO, IOSA, UDC e IDEPLUS. Placas de CPU, expansão de memória, Instalação de memória CACHE, SHADOW RAM, 
tudo sobre SETUP e STRAPS, análise de desempenho, como aumentar a performance do WINCHESTER, conversão de XT em AT, conversão de 286 em 386 e 
486, uso da memória ESTENDIDA e EXPANDIDA, Instalação de coprocessador aritmético, instalação de WINCHESTER, dicas para compras, instalação de 
MOUSE, MODEM/FAX, SCANNER, SOUND BLASTER, etc. etc. etc... 


À CONSERTE VOCÊ MESMO SEU PC XT OU AT 


200 páginas, 104 ilustrações. Evite gastos com manutenção !!! | 
Aprenda a fazer 100% da manutenção preventiva e 60% da manutenção corretiva do seu PC XT ou AT, mesmo sem saber eletrônica (6 recomendável ler também | 
o livro "COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/4868"). Solucione erros na memória, maus contatos em chips e pla-cas, limpeza e ajuste de | | 
velocidade de drives, manutenção de teclado e MOUSE, interfaces seriais e paralelas, monitor. Os cuidados que você deve ter com o seu WINCHESTER. 
Limpeza e Jubrificação de Impressoras. Como proteger o computador da poeira e da umidade. Uso de SOFTWARES DE DIAGNÓSTICO. Aprenda a cuidar do 
seu computador para que não apresente defeitos !!l 


EL IBM PC: DICAS E MACETES DE SOFTWARE 


230 páginas e uma centena de DICAS para você usar melhor seu PC !!! 

Você nunca viu tantas informações úteis sobre SOFTWARE em um único livro. A cada página é encontrada uma dica que pode ser imediatamente aplicada ao 
seu computador, resultando em maior velocidade, produtividade, segurança e facilidade de uso. Aborda diversos assuntos interessantíssi-mos: Cópia de | : 
disquetes protegidos, como aumentar a velocidade de acesso do WINCHESTER e dos disquetes, uso da MEMÓRIA ESTENDIDA, EXPANDIDA, EMS, XMS, 
HMA, UMB, compactadores de arquivos, recuperação de discos formatados e de arquivos apagados, programas gráficos, como proteger o computador a nível de | : 
software, como medir corretamente a performance da CPU, do WINCHESTER e da placa de vídeo, comandos úteis do DOS, como criar da melhor forma seus 
arquivos AUTOEXEC.BAT e CONFIG.SYS. E mais dezenas de outras dicas. Mesmo se você é um principiante, aprenda a usar as técnicas empregadas pelos | : 
EXPERTS em microinformática !!! 


















EG ETNIAS PAR TEN A q tt 7 AA om e RR it pa tre ce mreeeeans 





ON A ap MARS 1 ag 17 vita ERR + mes O qe q 0 AE a 


SOFTWARE DE DOMÍNIO PÚBLICO E SHAREWARE 


SOLICITE NOSSO CATALOGO GRATUITAMENTE. VEJA AS VANTAGENS DOS NOSSOS PROGRAMAS: 

1) São todos compactados com o popular compactador PKZIP, o que reduz o tamanho e o custo para os clientes. 

2) São fornecidos em disquetes NOVOS e de BOA QUALIDADE (TDK, SONY, BASF, etc.) 

3) São todos acompanhados de um arquivo LAERCIO.DOC que traz as instruções para a instalação e para sua imediata utilização. 

+14) São todos testados e homologados pela nossa equipe técnica. à 

5) A maior vantagem: são cobrados por tamanho, e não por disco. Enquanto outras empresas cobram 3 discos por 3 programas de 120 kB, nós| . 
cobramos por apenas um único disco de 360 kB com os três programas juntos. 


indique os livros desejados: Recorte, preencha e envie para: 
( ) Estou enviando cheque nominal ao autor, Lagrcio Vasconcelos LAÉRCIO VASCONCELOS 
( ) Desejo receber o catálogo de programas CAIXA POSTAL 4391, CEP 20.001-970 Rio de Janeiro, RJ 


jPreços em dólar comercial, valor de VENDA: Nome: 


| (converta para cruzeiros na data da compra) Endereço: 
| COMO MONTAR, CONFIGURAR E EXPANDIR SEU AT 386/486 ( )$27 Cidade: CEP: 
CONSERTE VOCÊ MESMO SEU PC XT OU AT ( )$20 Telefone: (MS) 


[IBM PC: DICAS E MACETES DE SOFTWARE ()$20 Para sua segurança, envie em carta registrada | | 
“LAÉRCIO VASCONCELOS COMPUTAÇÃO LTDA. Av. Rlo Branco, 156/2812 Rio de Janeiro. Tel (021) 262-1672, 262-6202 FAX (021) 240-0663 | 


pao 





PROG RAM PAN Acesso facilitado ao seu cadastro de clientes 


Micro: IBM PC XT/AT 

Memória: 512 Kbytes 

Vídeo: CGA 

Linguagem: Clipper Summer 8/7 


Controle de Clientes Requisitos: Impressora 








Renato André Alves 
Este programa foi criado para, de 
uma forma bemsimples ajudar o usuário aorganizaroseu  CEP,C,9 DATACADAS,D,08 
cadastro de clientes, possibilitando consultar com rápidez TELEFONE,C,8 0BS,C,70 
por NOME ou ápor CPF, imprimir as informações dos RG,C,12 | j 0BS1,€, 70 | 
clientes por NOME, CPF, individualmente, ou todos no Mais dois arquivos de índice criados pelo sistema: 
mesmo relatório. - (arquivo NOMERAZ.NTX ) 
O sistema é composto por um arquivo de dados que - (arquivo CPF.NTX) 
deverá ser criado pelo usuário com a ajuda de um editor 
de bancos de dados. EXECUÇÃO DO PROGRAMA 
- Estrutura do arquivo Para executaro programa, após sercompilado e linketidato 
( arquivo - controle ) basta digitar “concli” <ENTER>. 
NOMERAZ,C,40 CPF,C,14 
ENDERECO,C,40 CGC,C,19 
BAIRRO,C,25 NACIONAL,C,15 
ds E == RENATO ANDRÉ ALVES é Técnico em Processamento de 
CIDADE,C,25 ESTCIVIL,C,24 Dados, e programa nas linguagens Basic, Dbase III Plus, 
UF,C,2 PROFISSAO,C,25 BE) Cobol, e Clipper. 































SET SCORE OFF INDEX ON NOMERAZ TO NOMERAZ 

SET STATUS OFF ENDIF 

SET DELETE ON IF IFILE(“CPF.NTX”) 

SET WRAP ON INDEX ON CPF TO CPF 

BET DATE GERMAN ENDIF 

SET SOFTSEEKR ON SET INDEX TO NOMERAZ, CPF 

CLEAR REINDEX 

SET MESS TO 23 CENTER RRRRRCARAAARAAARARRRALAAAA ENTRADA NO MENU 
OPC=0 RRRLARALARAARARREARARRARERARAS 


RARRARANALALARANAARARAAA VARTAVEIS DO WHILE .'T. 
RRRARARACARAAAARRACARARRARARERARARARR A DO CONTCLI 

V. NOMERAZ=8PACE (40) SET COLOR TO 

V. ENDERECOz=SPACE (40) CLEAR 

V BAIRRO=SPACE (25) CLOSE ALL 

V. CIDADE=S8PACE (25) CANCEL 

V UF=SPACE (2) ENDDO 

V CEP=SPACE(9) *ananananananasananasa CADASTRO DE CLIENTES 
V TELEFONE=SPACE (8) RACRCALASANRLARRRRARARA RARA 

V. RG=SPACE (12) PROCEDURE CONTCLI 

V CPF=SPACE (14) DO WHILE .T. 

V COC=SPACE (19) CLEAR 

V. NACIONAL=SPACE (15) SET COLOR TO W/R 

V ESTCIVIL=SPACE (24) é 00,00 TO 24,80 DOUBLE 
V.PROFISSAO=SPACE (25) 6 02,32 SAY “CONTROLE DE CLIENTES” 
V. DATACADAS=CTOD(” / / *) e 03,35 SAY “MENU PRINCIPAL” 

V. OBS=SPACE (70) 6 01,01 TO 04,78 DOUBLE 

V. OBS1L=SPACE(70) SET COLOR TO 


teAARARARARAALAS ABERTURA E INDEXACAO DE ARQUIVOS 6 07,33 TO 14,45 DOUBLE 
PRARARARARALARARA ARA R 6 08,34 PROMPT “” INCLUIR “ MESS “ INCLUI 
USB CONTROLE CLIENTES NO ARQUIVO” 






IP IFILE(“NOMERAZ.NTX”) 6 09,34 PROMPT ” CONSULTAR “ MESS ” CONSULTA 
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CLIENTES DO ARQUIVO” 
6 10,34 PROMPT “ 
CLIENTES DO ARQUIVO” 
6 11,34 PROMPT “ 
CLIENTES DO ARQUIVO” 
G 12,34 PROMPT “ RELATORIO 
LISTAGEM DOS CLIENTES “ 
6 13,34 PRONMPT *” SAIDA 
SISTEMA OPERACIONAL “ 
MENU TO OPC 
DO CASE 
CASE OPC=1 
& 03,10 CLEAR TO 
DO INCL CLI 
CASE OPC=2 
6 03,10 CLEAR TO 
DO CONS CLI 
CASE OPC=3 
e 03,10 CLEAR TO 
DO ALTE CLI 
CASE OPCz=á 
G 03,10 CLEAR TO 
DO EXCL CLI 
CASE OPC=5 
G 03,10 CLEAR TO 
DO RELA CLI 
CASE OPC=6 
G 03,10 CLEAR TO 
DO SAIDA 


ALTERAR ALTERA 


EXCLUIR EXCLUIR 
TIRA UMA 


RETORNA AO 


RRRARRRARARANARARARARAS TNCLUSAO CLIENTES 
EACRALLALRRRALANRRALLRRLARARAR 


PROCEDURE INCL CLI 


DO WHILE 
CLEAR 


Tt. 


m SISTEMA DE CÁLCULO 
ESTRUTURAL Versão 1.14 


Vigas retangulares, lajes (método 

de Marcus) e pré-moldadas, pilares 

ç centrados não-esbeltos, sapatas 

centradas, escadas, (todos com armadura) e treliças (metálicas ou 
não). ATENÇÃO: o sistema NÃO traça os diagramas. US$ 25.00 


CONSULTÓRIO MÉDICO versão 1.0 


Cadastro completo de clientes/pacientes, com campos para 
registro de todas as consultas/intemações, ciclo evolutivo do 
tratamento, histórico médico, medicamentos receitados, datas 
de consultas/internações, etc. US$ 25.00 


HOME BIBLIO | 


Controle completo de biblioteca Cadastra livros, revistas, etc. 
Listagens/Consultas por assunto, autor, editora, etc. com campos 
para comentários. Super completo. US$12.50 


OUTROS SISTEMAS 
Contas a Pagar/ Receber US$25,00 - Controle de Estoque 
US$ 25,00 - Lista de Preços US$ 25,00 - Correção Monetária 


Mensal US$ 35,00 - Folha de Pagamento Mensal US$ 30,00 


- Livros Fiscais US$ 30,00 - 


Sistema de Contabilidade 


CAPETA (Clone de Software LTDA) US$50,00 - Controle de 
Vídeo Locadora US$ 50,00 


G 00,00 TO 24,80 DOUBLE 
6 02,66 SAY DATE() 
QG 03,66 SAY TIME() 
G 01,01 TO 04,78 DOUBLE 
G 02,27 SAY “CONTROLE DE CLIENTES” 
GQ 03,32 SAY “INCLUSAO” 
DO TELA F 
VAR=0 
DO LIMPA 
DO WHILE .T. 
DO TELA G 
IF V NOMERAZ=SPACE (40) 
G 05,02 CLEAR TO 22,77 
6 03,32 CLEAR TO 03,44 
RETURN 
ENDIF 
IF VAR=0 
VAR=1 
LOOP 
ENDIF 
SEEK V NOMERAZ 
IF FOUND() 
M="NOME JA CADASTRADO” 
DO MSG 
ENDIF 
SET ORDER TO 1 
RESP="98" 
G 22,01 TO 22,78 DOUBLE 
G 23,03 SAY “CONFIRMA A INCLUSÃO ?” GBT RESP PICT 
READ 
IF RESP="8” 
APPEND BLANK 
REPLACE NOMERAZ WITH V NOMERAZ, ENDEBRECO 
WITH V ENDERECO; 
BAIRRO WITH V BAIRRO, 
V.CIDADE, UF WITH V.UF; 
CEP WITH V CEP, TELEFONE WITH V TELEFONE, 
RG WITH V RG; 


CIDADE WITH 


eq 
4 





Horário de Atendimento de Segunda a Sexta-Feira 
Manhã 9:30 às 11:30 - Tarde 13:30 às 18:00 hs 
FONE : (054) 381 -1752 - FAXO54) 381-2668 


CONTROLE DE ANDAMENTO DE 
PROCESSOS Versão 1.0 


Cadastro do autor e réu, tipo decausa e ação, comarca, 
andamentono fórum. Data de pagamentos, audiências, 
leilões, distribuição, remessa ao tribunal, julgamento. 
Com campo para observações, etc. US$ 25.00 





CONTROLE DO ANDAMENTO DE OBRAS - V. 1.0 
Controle completo do andamento de obras, com cadastro de 
clientes, projetos e obras. Controlao valor dashoras, 08 recebimentos 
e datas dos mesmos. Mantêm completo controle sobre as fases da 
obra. ( Iniciada, Andamento ou Paralisada) US$ 25,00 


SERIE HOME VERSÕES 1.0 

US$ 12.50 CADA (Dólar Turismo) 

HOME GAME Cadastro de cartuchos de vídeo-game. 

HOME MAIL Mala direta com cadastro clientes/fornecedores completo. 
HOME MUSIC Cadstro de CD, LP e K/7 que você possui. 

HOME RADIO Para radicamadores. Controle completo de QSO e QSL. 
HOME SOFT Cadastro de sooftware que você possui. 

HOME VIDEO Cadastro de vídeo/filmes assistidos ou não. 


REQUISITOS MÍNIMOS DE HARDWARE: IBM PC-XT, 640 Kb, 
CGA, DD 5 1/4, Winchester e Impressora (opcional). 

Para pedidos converta o valor em US$ pelo dólar turismo venda do dia e envie cheque 
nominal cruzado ou vale postal para DAGOBERTO LARA DIAS Trav. Frei Clemente, 
s/nº - Centro - 99300-00 - Soledade - RS. Ou faça depósito na Conta nº 11.548-7 da 
Agência nº 0490-1 (Soledade-AS) do Banco do Brasil S/A. Envie xerox do depósito 
junto com seus dados completos e relação dos programas adquiridos ou telefone 
informando-nos o valor depositado e seus dados. 


Nas compras acima de US$ 29.00 aanhe de brinde um proarama de AGENDA TELEFÔNICA 





REVENDAS: SB INFORMÁTICA 


- CAPINZAL-SC - fone (0495) 55- 


CAMPO LARGO - PR - fone (041) 292 


1350 (manhã) * LASER CORP -. 
- AM - fone (092)233-8344 | 


- 3203 e COLITEC - MANAUS 
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CONTROLE DE CLIENTES 


CPP WITH V. CPF, CGC WITH V CGC, NACIONAL 
WITH V NACIONAL; 

BSTCIVIL WITH V ESTCIVIL, PROFISSAO WITH 
V. PROFISSAO; 


DATACADAS WITH V DATACADAS, OBS WITH V OBS, 


OBS1 WITH 0B81 
M="REGISTRO INCLUIDO” 
DO M8QG 
EXIT 
ELSE 
LOOP 
BNDIP 
ENDDO 
CLEAR GETS 
ENDDO 


LARTACRLALTALALALLLLALARARAÇAR CONSULTA 
CRUTRALATALARALA ALLA LARIALARRALAR 


PROCEDURE CONS CLI 
DO WHILE .T. 
G 11,27 CLEAR TO 15,51 
6 11,27 TO 15,51 DOUBLE 
6 12,26 PROMPT “” POR NOME/RAZAO SOCIAL “ MESS; 
“ A CONSULTA E FEITA POR NOME” 


G 13,28 PROMPT “ POR C.P.F “” MES8S; 
“” A CONSULTA E FEITA POR C.P.F.” 
G 14,28 PROMPT “ RETORNA “ MESS; 


“ BAI DA CONSULTA” 
MENU TO OPC 
DO CASE 
CASE OPC=1 
DO P NOME 
IF V NOMERAZ=SPACE (40) 
6 11,27 CLEAR TO 15,51 
RETURN 
ENDIF 
DO CONSULTA 
RETURN 
CASE OPC=2 
DO P CPF 
IP V CPF=SPACE(14) 
G 11,27 CLEAR TO 15,51 
RETURN 
ENDIF 
DO CONSULTA 
RETURN 
CASE OPC=3 
6 11,27 CLEAR TO 15,51 
RETURN 
OTHERWISE 
LOOP 
ENDCASE 
ENDDO 
*reRAAARAARARARARA CONSULTA POR NOME/RAZAO SOCIAL 
CRRAALLALAEAAARARARA RAR 
PROCEDURE P NOME 
DO WHILE .T. 
SET COLOR TO 
CLEAR 
00,00 TO 24,80 DOUBLE 
02,66 SAY DATE() 
03,66 SAY TIME() 
01,01 TO 04,78 DOUBLE 
02,27 SAY “CONTROLE DE CLIENTES” 
03,268 SAY “CONSULTA POR NOME” 
SET ORDER TO 1 
V. NOMERAZ=SPACE (40) 
6 08,05 TO 12,75 DOUBLE 
6 10,07 SAY “DIGITE O NOME : “ GET 
V NOMERAZ PICT “GQ!” 
READ 
IF V. NOMERAZ=SPACE (40) 
6 08,05 CLEAR TO 12,75 
RETURN 
ENDIF 
SEEK V NOMERAZ 
IF EOF() 
M="NOME NAO CADASTRADO” 
DO MSG 
LOOP 
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ENDIF 
RETURN 
ENDDO 
RENAAAAAAAAAAARARARAR CONSULTA POR C.P.F 
PARAADELLLRALARALALARARR RARA 
PROCEDURE P. CPF 
DO WHILE .T. 
BET COLOR TO 
CLEAR 
00,00 TO 24,80 DOUBLE 
02,66 SAY DATE() 
03,66 SAY TIME() 
01,01 TO 04,78 DOUBLE 
02,27 SAY “CONTROLE DE CLIENTES” 
03,28 SAY “CONSULTA POR C.P.F.” 
BET ORDER TO 2 
V. CPF=SPACE(14) 
6 08,18 TO 12,55 DOUBLE 
6 10,20 SAY “DIGITE O C.P.FP. : “” GET V. CPF 
PICT “RHR.HHR.HHR-RE” 
READ 
IF V CPF=SPACE(14) 
6 08,18 CLEAR TO 12,55 
RETURN 
ENDIF 
SEEK V CPF 
IF BOF() 
M="C.P.F. NAO CADASTRADO” 
DO MSG 


ENDDO 
RARATLRALTAAAEARARALRARRRA ALTERACAO 


PRLRARALARALCARARALARALARAALRALARARRARLAA 


PROCEDURE ALTE CLI 
DO WHILE .T. 
DO P NOME 
IF V NOMERAZ=SPACE (40) 
G 05,05 CLEAR TO 22,78 
RETURN 
ENDIF 
6 03,20 CLEAR TO 03,50 
€ 03,32 SAY “ALTERACAO” 
DO TELA F 
DO MOVE 
VAR=0 
DO TELA GQ 
RESP="S” 
6 23,03 CLEAR TO 23,78 
6 23,03 SAY “ CONFIRMA ALTERACAO 7” GET RESP 
PICT “GQ!” 
READ 
IF RESP="S" 
REPLACE NOMERAZ WITH V NOMERAZ, ENDERECO 
WITH V. ENDERECO; 
BAIRRO WITH V. BAIRRO, CIDADE WITH V CIDADE, 
UFP WITH V UF; 
CEP WITH V CEP, TELEFONE WITH V. TELEFONE, 
RG WITH V RG; 
CPF WITH V CPF, CGC WITH V CGC, NACIONAL 
WITH V. NACIONAL; 
ESTCIVIL WITH V ESTCIVIL, PROFISSAO WITH 
V. PROFISSAO; 
DATACADAS WITH V DATACADAS, OBS WITH V. OBS, 
OBSi WITH V OBS1 
M=" REGISTRO ALTERADO” 
DO MSG 
ELSE 
LOOP 
ENDIF 


ENDDO 
CERAAAARRARARRARARARRAAA RA BEOLTSÃO 


PRRARRLRALLAALARTARRARARARLARALARRRAS 


PROCEDURE EXCL. CLI 
DO WHILE .T. | 
G 05,04 CLEAR TO 21,78 
DO P NOME 
6 03,03 CLEAR TO 03,50 


6 03,30 SAY “EXCLUSAO” 
IF V NOMERAZ=SPACE (40) 
e 05,04 CLEAR TO 21,78 
& 03,03 CLEAR TO 03,50 
RETURN 
ENDIF 
€ 05,04 CLEAR TO 22,78 
DO TELA F 
DO MOVE 
DO TELA 8 
RESP="89"” 
6 23,03 SAY”CONFIRMA EXCLUSÃO ? “” GET RESP 
PICT “61” 
READ 
IP RESP="8" 
DELETE 
M="REGISTRO EXCLUIDO !” 
DO MSG 
ELSE 
LOOP 
ENDIF 
ENDDO 
RRRARARARARAARARARAARrARÃA A LIMPA VARIAVEIS 
AARALALARALALALALRAAALALAAALRAAARA A 
PROCEDURE LIMPA 
V NONERAZ=SPACE (40) 
V ENDERECO=SPACE (40) 
V BAIRRO=SPACE (25) 
V CIDADE=SPACE (25) 
V UF=SPACE(2) 
V. CEP=SPACE(9) 
V TELEFONE=SPACE (8) 
V RG=SPACE(12) 
V CPF=SPACE (14) 
V COC=SPACE (19) 
V NACIONAL=SPACE (15) 
V ESTCIVIL=SPACE(24) 
V PROFISSAO=SPACE(25) 
V DATACADAS=CTOD(” / / 4“) 
V OBS=SPACE (70) 
V OBS1=SPACE(70) 


RETURN 
CRCRALATRLLRRLARALLRRAAARAA PERLA FIXA 


PRLARRARLLALATANRARARALAAARARA RARA A 


PROCEDURE TELA F 
6 05,05 CLEAR TO 20,77 
O 06,04 SAY “NOME/RAZAO SOCIAL:” 
6 08,04 SAY “ENDERECO:” 
6 10,04 SAY “BAIRRO:” 



















Conserte 
Você Mesmo 


Seu PC 


Vídeo-livro, VHS, 112 mi- 
nutos, produção VIDEO- 
BOOK. Mesmo sem co- 
nhecimentos de eletrônica 
o próprio usuário pode re- 
solver cerca de 90 % dos 
problemas de hardware 
que surgem em PCs, XTs e 
ATs 286, 386 e 486. Troque 
partes defeituosas com 
segurança, CR$ 54 mil. 
Dispomos também do vi- 
deo-livro “MONTE VOCE 
MESMO SEU PC”, 48 mi- 
nutos, p/PCs XT e AT 286, 
386 e 486, CR$ 54 mil. 


INFODATA Informática Lt- 
da., rua da Consolação, 
393, 5º andar, ci.52, CEP 
01301-000, São Paulo, SP. 
(011) 259-8169 e 259-6399 








São Paulo - SP 
Tel: (011) 258-1140 


Aprenda 
EmCasa 


MSDOS * Windows 
Dbase IV * Clipper 
Word * Lotus * Excel 





Access * Visual Basic 
PageMaker 





10,37 SAY “CIDADE:” 

10,70 SAY “UF:” 

12,04 SAY “CEP:” 

12,18 SAY “TELEFONE:” 
12,36 SAY “RG:” 

12,53 SAY “CPF:” 

16,046 /SAY “COC:” 

14,28 SAY “NACIONALIDADE: ” 
16,04 SAY “EST. CIVIL:” 
16,41 SAY “PROFISSAO:” 
18,04 SAY “DATA DE CADASTRAMENTO: ” 
20,04 SAY “OBS:” 


0 ODCODODADO 


RETURN 


RARALTARAAAARATARAAAAAAARAAtHAAS MOVER 
PARANA LARLLARAALLALAARARARAAASAAAAAA 


PROCEDURE MOVE 
V. NOMERAZ=NOMERAZ 
V ENDERECO=ENDERECO 
V BAIRRO=BAIRRO 
V. CIDADE=CIDADE 
V. UF=UF 
V CEP=CEP 
V TELEFONE=TELEFONE 
V RG=RG 
V. CPF=CPF 
V COC=CaC 
V NACIONAL=NACIONAL 
V ESTCIVIL=ESTCIVIL 
V PROFISSAO=PROFISSAO 
V DATACADAS=DATACADAS 
V OBS=0BS 
V O0BS1=0BS1 


RETURN 
RRRALARLLAARRLARALAAAAAAAA TELA DOS GETS 


RALARLRANALARLRLARAAT ARRAIAL A 


PROCEDURE TELA G 
DO WHILE .T. 
SET COLOR TO W/N,W/R+ 
G 06,22 GET V NOMERAZ PICT “0!” 
IF VAR<>0 
READ 
IFP V NOMERAZ=SPACE (40) 
RETURN 
ENDIF 
ENDIF 
& 08,14 GET V ENDERECO PICT “G1” 
6 10,11 GET V BATRRO PICT “01” 
e 10,44 GET V CIDADE PICT “GQ!” 
Q 10,74 GET V UF PICT “GI” 


y 










































CONTABILIDADE 


Super Contabilidade com Fontes. 


OS MELHORES 


antena p'lei 8383. Fácil de ins- PROGRAMAS 
pa lead E no roncamen os 

retroativos. missão de diário, 

razão, balancetes e balanço. Era PARA WINDOWS 
çamentos com ou sem contraparti- TENHA EM CASA OS ULTIMOS 


da. Histórico padrão alterável no 
lançamento. Histórico total com até 
240 caracteres. Acesso em janelas 
a plano de contas, histórico, calcu- 
ladora, agendas, etc. Senha. Mul- 
tiempresa. Recursos List to Print e 
Edit. Acesso ao DOS. 5 disquetes 
de 5.1/4": CR$ 54.000,00. OU- 
TROS APLICATIVOS: Gestor Co- 
mercial (4 disquetes 5.1/4", super 
estoque c/emissão de cupom), CR$ 
54.000; Folha Pato. Semanal, CR$ 
18.000; Bancário (até 6 contas), 
CR$ 18.000; Mala Direta (clien- 
te, fornecedor, etc), CR$ 28.000,00 


LANÇAMENTOS MUNDIAIS COM 
RAPIDEZ E ECONOMIA PARTICIPANDO 


CLUBE 
DO 
WINDOWS 


Softs executáveis prontos para RECEBA CATÁLOGO E UM 
o uso em PC XT/AT 286/386/ BRINDE ESPECIAL, 
486/08 c/Fontes em CLIPPER. ESCREVENDO PARA 
PODA IO Informática Ltda., r. Clube do Windows 

a Consolação, 393, 5º andar, Caixa Postal 6015 


ci.52, Centro, CEP 01301 000, 
São Paulo-SP. Tels: 


60451-970 - FORTALEZA 
(011) 259-8169 e 259-6399 | 


CONTROLE DE CLIENTES 


G 12,08 GET V CEP PICT “HHHHE-HHH” 
G 12,27 GET V TELEFONE PICT “tHk-HHEE” 
G 12,39 GET V RG PICT “HH.HHH.HHH-H” 
G 12,57 GET V CPF PICT “HHH.HHH.HHH-HHE” 
G 14,08 GET V CGC PICT “HHR.HHH.HHH/HRHE- 

BH” 
€ 14,42 GET V NACIONAL PICT “GQ!” 
G 16,15 GET V ESTCIVIL PICT “GQ!” 
G 16,51 GET V PROFISSAO PICT “GI!” 
é 18,26 GET V DATACADAS PICT “Q!” 
G 20,08 GET V OBS PICT “Q!” 
6 21,06 GET V OBS1 PICT “6!” 

IF VAR<>0 

READ 

RETURN 
ENDIF 
IF VAR=0 
VAR=1 
CLEAR GETS 
ENDIF 
ENDDO 


CRRALARLARATLCRATALAARÇARARARA TELA DO SAY 
CRRLARARAATLLRARARAALARLATARARAÇARA 


PROCEDURE TELA S 
DO WHILE .T. 

SET COLOR TO W/R+ 
06,22 SAY NOMERAZ 
08, 14 SAY ENDERECO 
10,11 SAY BAIRRO 
10,44 SAY CIDADE 
10,74 SAY UF 
12,08 SAY CEP 
12,27 SAY TELEFONE 
12,39 SAY RG 
12,57 SAY CPF 
14,08 SAY CGC 
14,42 SAY NACIONAL 
16,15 SAY ESTCIVIL 
16,51 SAY PROFISSAO 
18,26 SAY DATACADAS 
20,08 SAY OBS 
21,08 SAY OBS1 
"SET COLOR TO 

RETURN 


ENDDO 
RRCRAARLLRAARAAAARARARAARAA MENSAGEM 


RARCRRARALRARARLLAARARALARASARARAERAR 


PROCEDURE MSG 
DO WHILE .T. 
SET CURSOR OFF 
6 23,02 CLEAR TO 23,78 
e 23,03 SAY M 
TONE (200,5) 
INKEY (1.5) 
6 23,02 CLEAR TO 23,78 
SET CURSOR ON 
RETURN 


ENDDO 
PENAAARAARAALARAAAA PROCEDURE DE CONSULTA 
RACARARLRALARLRARAALRRRARRR RR 
PROCEDURE CONSULTA 
OPC=0 
DO LIMPA 
DO TELA F 
DO TELA 8 
DO ANDA 
RETURN 
CRRAAAALARAARALAAARARAAA MOVIMENTACAO 
CRRRAALARLRARRARARALEALARLARA RPA 
PROCEDURE ANDA 
DO WHILE .T. 
6 05,66 TO 09,78 DOUBLE 
G 06,67 PROMPT “ AVANCA 1 
REGISTRO NO ARQUIVO” 


G 07,67 PROMPT “ RETORNA 1 “ MESS “ RETORNA 1 


REGISTRO NO ARQUIVO” ' 
e 08,67 PROMPT “ CANCELA “ MESS “ RETORNA 
ÃO MENU” 
MENU TO OPC 
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” MESS “ AVANCA 1 





DO CASE 
CASE OPC=1 
SKIP 
CASE OPC=2 
SKIP-1 
CASE OPC=3 
6 05,03 CLEAR TO 22,78 
RETURN 
ENDCASE 
IF EOF() 
M="FIM DE ARQUIVO” 
DO MSG 
GOTO TOP 
ENDIF 
IF EOF() 
M="INICIO DO ARQUIVO” 
DO MSG 
GOTO BOTTOM 
ENDIF 
DO TELA S 


ENDDO 
RECALANALAERARAAALARARAA RELATORIO 


ARARATALATARARARAÇRARAAALATARARLAÇARARAR 


PROCEDURE RELA CLI 
DO WHILE .T. 
6 23,03 CLEAR TO 23,78 
SET COLOR TO 
6 12,32 TO 16,46 DOUBLE 
6 13,33 PROMPT “ GERAL 
TODOS OS REGISTROS “ 
G 14,33 PROMPT “ ESPECIFICOS ” MESS *“ IMPRIME 
O REGISTRO SOLICITADO “ 
G 15,33 PROMPT “ 
AO MENU DE CLIENTES “ 
MENU TO OPC 
DO CASE 
CASE OPC=1 
DO GERAL 
CASE OPC=2 
DO ESPECI 
CASE OPC=3 
& 10,06 CLEAR TO 14,19 
RETURN 
OTHERWISE 
LOOP 
ENDCASE 


“ MESS *” IMPRIME 


RETORNA  “ MESS “ RETORNA 


ENDDO 
Rantararasaxaa MENU DO RELATORIO ESPECIFICO 
RAARLALALATLLALALAAAAAARAÇAtLARS 
PROCEDURE ESPECI 
DO WHILE .T. 
6 23,03 CLEAR TO 23,78 
SET COLOR TO 
G 14,27 CLEAR TO 18,51 
G 14,27 TO 18,51 DOUBLE 
6 15,28 PROMPT “ POR NOME/RAZAO SOCIAL “” MESS; 
“ IMPRIME POR ORDEM DE NOME” 
G 16,28 PROMPT “ POR C.P.F 
“ IMPRIME POR ORDEM DE C.P.F.” 
€ 17,28 PROMPT “ RETORNA 
“ RETORNA AO MENU ANTERIOR “ 
MENU TO OPC 
DO CASE 
CASE OPC=1 
DO REL NOME 
CASE OPC=2 
DO REL CPF 
CASE OPC=3 
€ 14,27 CLEAR TO 18,51 
RETURN 
OTHERWISE 
LOOP 
ENDCASE 


” MESS; 


“” MESS; 


ENDDO 
ERLRLLRAARALARAALLARARAAAA TRSTE TMPRESSAO 
RARRRALALCARLLLLLRLLALRALARRA RR 
PROCEDURE TESTE IMP 
IMP="0K” 
SET CURSOR OFF 





SET COLOR TO 
6 05,20 CLEAR TO 17,59 
e 10,20 TO 14,59 DOUBLE 
DO WHILE .T. 
SET COLOR TO 
6 12,22 SAY “<ENTER> IMPRIMIR OU <ESC> 
CANCELAR” 
INKEY (0) 
IF LASTKEY ()=13 
IF .NOT. ISPRINTER(.T.) 
SET CURSOR OFF 
e 12,22 SAY ” A IMPRESSORA NÃO 
ESTA PRONTA !!! *“ 
TONE (200, 12) 
LOOP 
ENDIF 
6 12,21 SAY ” IMPRIMINDO . . 
IMP="0K” 
SET CURSOR ON 
SET COLOR TO 
RETURN 
ENDIF 
IF LASTKEY ()=27 
SET DEVICE TO SCREEN 
€ 05,20 CLEAR TO 17,59 
IMP="N” 
RETURN 
ENDIF 
SET CURSOR ON 
SET CURSOR TO 
RETURN 
ENDDO 


RARRTAATLARALARARAAAARARAAAAR GERAL 
RLLLRARALLLASARARLARRRALARRRARALARARRARA 


PROCEDURE GERAL 
DO TESTE IMP 
PAG=1 
SET ORDER TO 1 
GoTo TOP 
IF LASTKEY () =27 
SET DEVICE TO SCREEN 
€ 10,20 CLEAR TO 14,59 
RETURN 
ENDIF 
DO WHILE .NOT. EOF() 
SET DEVICE TO PRINTER 
L=1 
e L,0OS SAY CHR(27)+7E”+”CADASTRO DE 


Sistélie 


Você assina e recebe em sua casa durante 
um ano doze exemplares da revista 
Micro Sistemas. 


Pagamento a vista 
Cheque para 30 dias CR$ 40.320,00 


CR$ 28.000,00 


ENTER PRESS Editora Ltda. 

Rua Washinton Luiz, 9 - 6r.402 

CEP: 20230-900 - Rio de Janeiro - RJ 
Tel.: (021)232/2517 - FAX:(021)242-9981 


Validade ate 15.04.94 





CLIENTES” 
G L,65 SAY “DATA : “ 
e L,72 SAY DATE() 
L=L+1 
G L,05 SAY “RELATORIO GERAL “ 
GQ L,63 SAY “PAGINA : “ 
GL,73 SAY ALLTRIM(STR(PAG)) 
PAG=PAG+1 
L=L+1 
G L,00 SAY REPLI(“-”,80)+CHR(27)+"F” 
L=L+1 
e L,00 SAY “ * 
L=L+1 
DO WHILE L<59 
DO IMPRESS 
L=1L+3 
SRIP 
IF LASTKEY ()=27 
SET DEVICE TO SCREEN 


RETURN 
ENDIF 
IF EOF() 
EXIT 
ENDIF 
ENDDO 
ENDDO 


SET DEVICE TO SCREEN 
e 10,20 CLEAR TO 14,59 
RETURN 
ERRAR RARAAARANAAAAA RELATORIO POR NOME 
RRRRAATRRRARARRALKRALARARARRÇRR A 
PROCEDURE REL NOME 
IMP="0K” 
DO WHILE IMP="0K” 
SET COLOR TO 
CLEAR 
00,00 
02,66 
03,66 
01,01 
02,27 


TO 24,80 DOUBLE 

SAY DATE() 

SAY TIME() 

TO 04,78 DOUBLE 

SAY “CONTROLE DE CLIENTES” 

03,28 SAY “RELATORIO PARCIAL POR NOME” 
SET ORDER TO 1 

V NOMERAZ=SPACE (40) 


29 DOGO 


G 08,05 TO 12,75 DOUBLE 
G 10,07 SAY “DIGITE O NOME : “ GET 
V NOMERAZ PICT “GQ!” 
READ 
e 08,05 CLEAR TO 12,75 = 


Nome: 
Endereço: 
CEP: 
Equipamento: 
Profisão: 
Cheque nº: 
OBS: 


Assinatura 


Desejo receber da ENTER PRESS Editora Ltda, 
uma assinatura anual (12 meses) da revista 
Micro Sistemas. 


CONTROLE DE CLIENTES 


IF V NOMERAZ=SPACE (40) 
RETURN 
ENDIF 
SEEK V NOMERAZ 
IF EOF() 
M=”"NOME NÃO CADASTRADO” 
DO MSG 
LOOP 
ENDIF 
PAG=1 
DO TESTE IMP 
DO WHILE IMP="0K” 
SET DEVICE TO PRINTER 
L=1 
e L,05 SAY CHR(27)+7E”+"CADASTRO DE 
CLIENTES” 
G L,65 SAY “DATA : * 
€ L,72 SAY DATE() 
L=L+1 
€ L,05 SAY “RELATORIO PARCIAL POR NOME “ 
€ L,63 SAY “PAGINA : “ 
€L,73 SAY ALLTRIM(STR(PAG)) 
L=L+1 
€ L,00 SAY REPLI(“-”,80)+CER(27)+"P” 
L=L+1 
G L,00 SAY “ “ 
L=L+1 
DO IMPRESS 
SET DEVICE TO SCREEN 
G 10,20 CLEAR TO 14,59 


IMP="N” 
RETURN 
ENDDO 
ENDDO 


LRIAXSAZAXEXAXZEZIXZEEZ) RELATORIO PARCIAL POR 
C.P.FP,ffRAXARALALRARAALARARA 
PROCEDURE REL CPF 
IMP="0R” | 
DO WHILE IMP="0K” 
SET COLOR TO 
CLEAR 
00,00 TO 24,80 DOUBLE 
02,66 SAY DATE() 
03,66 SAY TIME() 
01,01 TO 04,78 DOUBLE 
02,27 SAY “CONTROLE DE CLIENTES” 
03,28 SAY “RELATORIO PARCIAL POR C.P.F.” 
SET ORDER TO 2 
V CPF=8PACE(14) 
8 08,05 TO 12,75 DOUBLE 
G 10,07 SAY “DIGITE O C.P.F. : “ GET V CPF 
PICT “HHB.HHR.HHH-HE” 
READ 
& 08,05 CLEAR TO 12,75 
IF V CPF=SPACE(14) 
RETURN 
ENDIF 
SEER V CPF 
IF EOF() 
M="C.P.F. NAO CADASTRADO” 
DO MSG 
LOOP 
ENDIF 
PAG=1 
DO TESTE IMP 
DO WHILE IMP="0K” 
SET DEVICE TO PRINTER 
L=i 
6 L,05 SAY CHR(27)+"E”+"CADASTRO DE 
CLIENTES” 
G L,65 SAY “DATA : “ 
G L,72 SAY DATE() 
L=L+1 


990 0 90 O 


6 L,05 SAY “RELATORIO PARCIAL POR C.P.F.” 


G& L,63 SAY “PAGINA : * 
01,73 SAY ALLTRIM(STR(PAG)) 
L=L+1 
G L,00 SAY REPLI(“-”,80)+CHR(27)+"P” - 
=L+1 
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e L,00 SAY “ *“ 
L=L+1 
DO IMPRESS 
SET DEVICE TO SCREEN 
& 10,20 CLEAR TO 14,59 
IMP="N” 
RETURN 
ENDDO 


ENDDO 
ERRARARALLALARARAARARARAA TMPRESSAÃO 


AXILAS IISIZAZIZAZIZSIZZXZIZA DS 


PROCEDURE IMPRESS 
DO WHILE .T. 
& L,04 SAY CHR(27)+"E”+"NONME/RAZAO 
SOCIAL : “; 
+NOMERAZ+CHR (27)+“F” 
L=L+1 
8 L,0O4 SAY CHR(27)+"E”+"BNDERECO : 
“+CHR(27)+”F”+ENDERECO 
L=L+1 
G& L,04 SAY CHR(27)+"7E”+"BAIRRO : 
“+CBR(27)+"7F”+BAIRRO 
G& L,38 SAY CHR(27)+7E”+"CIDADE 
“+CHR(27)+7F”+CIDADE 
O L,72 SAY CHR(27)+"E”"+"UP : 
“+CHR(27)+"F”+UF 
L=L+1 
G L,0O4 SAY CHR(27)+"E”"+"CEP : 
“+CHR(27)+"P”+CEP 
G L,19 SAY CHR(27)+7E”+”"TELEFONE 
“+CHR(27)+"7F”+TELEFONE 
6 L,41i SAY CHR(27)+7"E”"+"RG : 
“+CHR(27)+7F"+RG 
G L,59 SAY CHR(27)+"E”+"CPF : 
“+CHR(27)+"F”7+CPF 
L=L+1 
& L,04 SAY CHR(27)+"E”"+"CGC : 
“+CHR(27)+7F”+COC 
G L,40 SAY CHR(27)+7E”+”7"NACIONALIDADE : 
“+CHR(27)+"F”+NACIONAL 
L=L+1 
& L,04 SAY CHR(27)+"E”"+"EST. CIVIL : 
“+CHR(27)+"F”+ESTCIVIL 
G L,41 SAY CHR(27)+7"E”+"PROFISSAO : 
“+CHR(27)+7F”+PROFISSAO 
L=L+1 
G L,04 SAY CHR(27)+"E"+"DATA DE 
CADASTRAMENTO : “; 
+CHR (27) +7F”+DTOC (DATACADAS) 
L=L+1 
6 L,04 SAY CHR(27)+"E”"+"OBS : 
“+CHR(27)+”7F”+OBS 
L=L+1 
G L,08 SAY OBS1 
L=L+1 
RETURN 


ENDDO 
LELLLLALLSLARARA LARA GATDA 


CRRARNLLLLLLTRRARLLLTLRLALARAALARLARARÃAR 


PROCEDURE SAIDA 
DO WHILE .T. 
é 14,36 TO 17,42 DOUBLE 
6 15,37 PROMPT “ NAO “ MESS ” RETORNA AO MENU 
PRINCIPAL” 
6 16,37 PROMPT “ SIM “ MESS “ SAI DO SISTEMA E 
RETORNA AO DOS” 
MENU TO OPC 
DO CASE 
CASE OPC=1 
DO CONTCLI 
CASE OPC=2 
RETURN 
OTHERWISE 
ENDCASE 


ENDDO 








SOFTPACK - um tançamento em sHAREWARE de LAÉRCIO VASCONCELOS COMPUTAÇÃO 


Disquetes de 1.2 MB com cheios de excelentes programas de SHAREWARE. Para micros AT com drive de 1.2 MB e Winchester. Preço: US$ 4,50 





SOFTPACK 1 - Utilitários para MS-DOS 


267TIME20 - Cria um relógio na 28º linha de uma tela CGA 
DATEBOOK - Agenda eletrônica simples e de fácil uso 

DIARY - Diário eletrônico para anotações pessoais 

EZFORM - Cria formulários personalizados 

HYHELPER - Cria arquivos de HELP tipo HIPERTEXTO 

SYSCHK - Fomece informações sobre a configuração do PC 
PCMAG - 79 utilitários super-úteis da PC MAGAZINE 

PKZ110 - Compactador/Descompactador PKZIP completo 
QED10 - Editor de textos simples e fácil, com acentuação 
QMFCV30S - Copia disquetes protegidos e formata disquetes 
com capacidades elevadas (Ex: 1720kB em discos de 1.44MB) 
STS320 - Facilita operações com arquivos, tipo XTREE 

TPAINT - Programa para desenhos. CGA, HERCULES, VGA 
GSETUP - Facilita uso do SETUP STANDARD do AT 

MEMORIA - Aprenda a usar bem a memória do seu micro 

VIRUS - Aprenda a proteger seu computador dos virus 

WHAT21 - Acrescenta descrições aos arquivos dos diretórios 
ZIPZAPT - Editor de trilhas e setores do disco 


SOFTPACK 2 - Anti virus 


SCAN, CLEAN e VSHIELD - Detector, eliminador e escudo anti 
virus, versão 108 (ou outra mais atual) 
VSUMX304 - Dá explicações completas sobre 2015 virus 


SOFTPACK 3 - Programas VGA para MS-DOS 


GIFEXE - Transforma arquivos GIF em EXE “self display” 
GIFLITE - Reduz em 30% o tamanho de arquivos GIF 
BIT2GRAY - Transforma arquivo preto/branco em “gray scale” 
HIJAAK - Conversor de formatos de arquivos gráficos 
GIF2JPO - Compacta e descompacta arquivos GIF até 5 vezes 
GWS61 - Exc. visualizador, conversor e melhorador de telas 
CSHOWB860 - Excelente SHELL para arquivos gráficos. 

PICEM - Visualizador de telas gráficas GIF e PCX 


SOFTPACK 4 - Progs. gráficos para WINDOWS 


GWSWIN11 - Excelente programa visualizador, conversor e me- 
lhorador de telas gráficas. (Graphic Workshop for Windows) 
PMAN - Cria efeitos especiais sobre telas gráficas. 

GRABPRO - Capturador de telas do WINDOWS. 

PSP102 - Conversor, visualizador e criador de efeitos em telas 


SOFTPACK 6 - Jogos VGA para crianças 


MARIOVGA - Jogo tipo SUPER MARIO 

ECB - Livro de colorir eletrônico, fácil de usar 

MCRAYON - Outro Livro de colorir 

FUNYFACE - Desenha caras engraçadas, pinta e imprime. 
CAVES - Excelente jogo tipo arcade, da APOGEE. 
JOGOMEM - Jogo da memória com animação. 

AGENT - Outro jogo da APOGEE, com vários niveis. 





SOFTPACK 6 - Jogos VGA (jovens e adultos) 


2100 - Jogo de Xadrez 

ARK2 - Jogo tipo ARKANOID (uma espécie de ping-pong) 
ATLANTI - Jogo de guerra entre naçees, tipo WAR 

COMIC4 - Jogo tipo arcade, com vários niveis, labimtos, etc 
EGATREK2 - Jogo STAR TREK 

EGAVGAPB - PINBALL 

KLONDK23 - Jogo de cartas tipo “solitaire” 

PH - Strip-poker CGA, com duas jogadoras 

QUATRIS - Jogo de blocos tipo TETRIS 


SOFTPACK 7 - Aplicativos para MS-DOS 


BANNER - Cria faixas, cartazes, letreiros, posters, etc 

CMGR11 - Gerencia contas bancárias e cartões de crédito, etc. 
CRVPLOT - Plota gráficos (X-Y) em impressoras EPSON. 
FDRAW225 - Faz fiuxogramas, diagramas, organogramas. 
HOMEHELP - Gerenciador de atividades domésticas: Agenda, 
cartões de crédito, fitas K-7, etc. 

UTDIARY - Diário eletrônico para anotações pessoais. 


SOFTPACK 8 - Aplicativos para MS-DOS 


ASEASY8S - Planilha semelhante ao LOTUS 1-2-3. Famosissimo 
programas de SHAREWARE. 





CARS - Gerencia manutenção de carros e máquinas 

ADDRES28 - Agenda eletrônica para uso pessoal. 

FORMGEN2 - Excelente programa para criar formulários. Um 
bast seller de SHAREWARE, um dos mais usados nos E.U.A. 
STOCK - Para controle de estoque, bem fácil de usar. 








SOFTPACK 8 - Programas para WINDOWS 


ADRMAN - Gerenciador de nomes, endereços, telefones 

AMW10 - Arc Master: Gerencia arquivos .ARJ, .ZIP, etc 
BENCHO11 - Mede performance da placa de video 

DESK240 - Cria um DESKTOP virtual, maior que a tela 
DSKTRK22 - Catalogador de arquivos e disquetes 

ICONS1 - Biblioteca de 1300 icones 

SPEAKER - Use sons do WINDOWS no alto falante do PC 
VBRUN - Programa VBRUN100.DLL, que é uma RUN TIME Li- 
BRARY do VISUAL BASIC. 


SOFTPACK 10 - Utilitários para MS-DOS 


HYPDSK45 - HYPER DISK, um dos melhores programas de 
CACHE DE DISCO, acelera a velocidade do seu WINCHESTER. 
ANAD207 - ANADISK, versão 2.07. Analisa, repara, edita dis- 
quetes. Copia disquetes protegidos. 

MBACK - Ótimo programa de BACKUP do winchester, de forma 
compactada, reduz à metade o número de discos necessários. 
LHA213 - Compactador e descompactador de arquivos LZH. 

ORG - DESFRAGMENTADOR de winchester, arruma os arquivos 
para que o acesso fique mais rápido 

DRC - Transforma um arquivo de texto em um executável "self 
display”, incluindo menus e cores, fácil utilização. Excelente | 
FONTMNIA - Altere os caracteres de sua placa de video VGA. 
BEN311 - BATCH ENHANCER. Facilita o uso de arquivos de 
BATCH, tomando-os mais poderosos a flexiveis. Acrescenta 42 
novos comandos para você criar seus arquivos BAT. 


SOFTPACK 11 - Aplicativos para MS-DOS 


WAMPUM - Gerenciador de banco de dados, compativel com 
DBASE. Ideal para quem não sabe programar, mas quer manter 
sua própria base de dados. Fácil operação, através de menus. 
DAYO - Aplicações comerciais DAYO, para pequenas empresas 
Controle financeiro, estoque, mala direta, cadastro de clientes... 
BOOKG - Gerencia sua biblioteca pessoal, catalogando livros e 
permitindo buscas pot titulo, autor ou categoria, lista relatórios, 
ODAY - Diário eletrônico muito versátil. 

LOCKOUT - Protege o seu micro através de senhas 





SOFTPACK 12 - Utilitários para MS-DOS 


ARJ241 - Compactador ARJ versão 2.41 

PKZ204 - Compactador PKZIP versão 2.04 

ARCMAS92 - Facilita o uso do ARJ, PKZIP e outros. 

HOTS5O0 - 50 utilitários da revista PC MAGAZINE. 

CATALOG - Catalogador de disquetes. Com ele você localiza 
rapidamente em que disquetes estão gravados seus arquivos 
POWERBAT - BATCH ENHANCER. Acrescenta novos comandos 
aos arquivos de BATCH, e transforma arquivos BAT em EXE 


SOFTPACK 13 - Jogos VGA para joves a adultos 


DUKE - Excelente jogo ARCADE: DUKE NUKEM 

JiLL - Excelente jogo ARCADE: JILL OF THE JUNGLE 
BATNAV - Jogo de batalha Naval 

GODMOM - Jogo ARCADE com 50 niveis 

CRUSHER - Jogo PAC-MAN, mas muito melhor 
AMARILLO - Jogo de POKER profissional 

HEROHRT - Jogo ARCADE: HERO'S HEART 


SOFTPACK 14 - Figuras p. editoração eletrônica 


Contém 315 figuras “CLIP ART" em formato PCX para usar em | 


editoração eletrônica. As figuras contém pessoas, simbolos, 
computadores e periféricos, animais, etc. Podem ser usadas por 
qualquer editor que permita inserir figuras no texto: WORD, 
WORD PERFECT, WORD STAR, etc. 


SOFTPACK 165 - Telas VGA com paisagens 

Contém 56 telas VGA color, com fotos e desenhos de pai- 
sagens, com resoluções de até 640x480. Excelente forma de 
testar as capacidades gráficas de um monitor VGA ou SUPER 
VGA. Inclui também o programa PICEM, usado para ver as telas. 


SOFTPACK 16 - Telas com garotas da PLAYBOY 
Contém 56 telas VGA color, com fotos de belas garotas em 
trajes de praia (bikinis, etc.). São originais de revistas como 
PLAYBOY. Resoluções de 640x480. Contém o programa PICEM, 
usado para ver as telas. 


SOFTPACK 17 - Telas (XXX) para maiores de 18 
Contém 34 telas VGA color, com fotos eróticas (XXX), com re- 
soluções de 840x480. Cada uma delas tem duas ou mais mu- 
lheres. Impróprio para menores de 18 anos. Inclui também o 
programa PICEM, usado para ver as telas. 























SOFTPACK 18 - Fontes para WINDOWS 3.1 
Contém 51 novos tipos de fontes TRUE TYPE para usar com o 
WINDOWS 3.1, com qualquer tipo de impressora. Bom para criar 
documentos bem apresentados, com vários tipos de letras. 
Podem ser usadas por qualquer programa do WINDOWS 3.1. 


SOFTPACK 19 - Treinamento 


SAA - Curso introdutório de micro-informática, em português. 
BASPRIMR - Curso de linguagem BASIC (inglês) 

DB4TUT - Curso de DBASE (inglês) 

COMTUTA44 - Curso introdutório de informárica e DOS em inglês 
MMASTER - Curso para aperfeiçoar sua memória (inglês) 
DOSREF - Referência dos comandos do DOS, em português. 
FASTYPE - Curso de digitação. Aprenda a digitar rápido. 


SOFTPACK 20 - Aplicativos para MS-DOS 


SKYGLOBE - Programa de astronomia que mostra o mapa do 
céu visto de qualquer parte do mundo, em qualquer data. 
MERCURY - Resolve equações matemáticas, plota gráficos, etc. 
EZPROJ - Programa gerenciador de projetos, organiza crono- 
gramas. Bom para chefes e gerentes. 

WFLAGS - Banco de dados com informações geográficas sobre 
todos os países do mundo. 

WEDS0 - Editor ASCII. Opera com arquivos de qq tamanho. 


SOFTPACK 21 - Programas VGA para MS-DOS 


CUBES - Desenha cubos em movimento em uma tela VGA. 
DAZZLE - Desenha caleidoscópios eletrônicos super coloridos 
DTPM - Programa para editoração eletrônica de desenhos em 
preto e branco. Fácil e rápido. 

FRAIN172 - Desenha mais de 80 tipos diferentes de FRACTAIS 
super coloridos. 

GIFDESK - Visualizador de telas gráficas GIF. 

NEOSHOW - Cria apresentações tipo "SLIDE SHOW”, usando 
arquivos GIF ou PCX. Excelente H! 


SOFTPACK 22 - Jogos VGA para jovens e adultos 


BRIX - Excelente jogo de raciocinio com encaixe de blocos. 
CYRUS - Jogo de Xadrez 

EMPIRE - Jogo estratégico tipo WAR, de conquista do mundo. 
KEEN - Jogo espacial tipo ARCADE, com várias fases. 
OVERKILL - Jogo espacial. Lute contra naves inimigas. 









SOFTPACK 23 - Jogos VGA para crianças 


BDINO - Livro de colorir elerônico. A criança escolhe várias 
paisagens, vários tipos de dinossauros, colore e imprime. 
KEENDM - Jogo espacial, no estilo do SUPER MÁRIO. 
MATHRESC - MATH RESCUE, excelente jogo educativo tipo 
ARCADE, onde a criança exercita as operações aritméticas. 
WRESC - Excelente jogo ARCADE para crianças 





SOFTPACK 24 - Utilitários para MS-DOS 


MULTBOOT - Permite que o computador tenha múltiplos ar- 
quivos CONFIG.SYS e AUTOEXEC.BAT. 

PCUTIL - 40 utilitários que facilitam o uso do MS-DOS. 

SS26 - Screen saver. Funciona com video CGA, EGA e VGA. 
EBL407 - Extended Batch Language. Cria arquivos de BATCH 
mais poderosos e fáceis de usar. 

PHANTOM - Exc. para criar demos de programas. Memoriza a 
sequência de teclas digitadas, e depois, o processamento pode 
ser repetido a partir de sequência memorizada. 

SHEZ90A - SHELL para arquivos compactados ZIP e ARJ. Fa- 
cilita o uso do PKZIP e ARJ, e as operações usuais do MS-DOS. 


SOFTPACK 25 - Telas com garotas da PLAYBOY, 
Contém 96 telas VGA color, com fotos de garotas de bikini, com 
resolução de 320x200, com 256 cores. Impróprio para menores 
de 18 anos. Requer uma placa de vídeo VGA ou SUPER VGA. 
Inclui também o programa PICEM, usado para ver as telas. 


SOFTPACK 26 - Telas (XXX) para maiores de 18 
Contém 92 telas VGA color, com fotos eróticas (XXX), com re- 
solução de 320x200, com 256 cores. Impróprio para menores de 
18 anos. Requer uma placa de vídeo VGA ou SUPER VGA. Inclui 
também o programa PICEM, usado para ver as telas. 


SOFTPACK 27 - Telas (XXX) para maiores de 18 
Contém 92 telas VGA color, com fotos eróticas (XXX), com re- 
solução de 320x200, com 256 cores. Impróprio para menores de 
18 anos. Requer uma placa de video VGA ou SUPER VGA. Inclui 
também o programa PICEM, usado para ver as telas. 











Cada disco custa US$ 4,50. Converta para cruzeiros pelo Dólar Comercial, valor de VENDA, na data da compra. Você pode adquirir os discos SOFTPACK 
diretamente em nosso escritório, ou de qualquer lugar do Brasil, pelo correio. Para comprar pelo correio, faça o seguinte: 


1) Envie para nossa CAIXA POSTAL, uma carta registrada, indicando os discos que você deseja, e cheque CRUZADO e NOMINAL a LAÉRCIO VASCONCELOS. 
2) Se preferir, pode fazer um depósito no Banco Itaú, agência 0310, conta 60.757-7, em nome de Laércio Vasconcelos. Na carta você deve enviar junto com seu 


pedido um XEROX LEGÍVEL do recibo bancário. 


3) Pode fazer depósito bancário e fazer seu pedido por FAX. Transmita seu pedido, telefone para contato, número do seu FAX e o RECIBO DO DEPÓSITO. 
OBS: Não esqueça de indicar seu nome e endereço completos. OBS: Não operamos com VALES POSTAIS nem com REEMBOLSO POSTAL 


LAÉRCIO VASCONCELOS COMPUTAÇÃO LTDA. 


Av. Rio Branco, 156/2812, Centro, Rio de Janeiro. Tel (021) 262-1672, FAX 240-0663. Cartas para CAIXA POSTAL 4391, CEP 20.001-970, Rio de Janeiro RJ. 


ESPECIAL 


Automatize, com segurança, a geração de telas em seus programas 








Marcos Santello 


G TELA; | PROG 


* Programa:GTELALL 
* Funcao..:Gera programa fonte na linguagem 
Cobol Microsoft e/ou MicroBase. 
* Chamado. :GTELAlLO.PRG 
* Gerador COBOL. 
TF2 = .F. 
decl 
id o 
ec 
LINHA PROC[100], LINHA PRO2[100), TAB NOM[99] 
clea gscre 
G& 01, 01 to 03, 79 
e 02, 30 say 'Aguarde...'! 
G 04, 01 to 24, 79 
for N = 1 TO g99 
TAB NOM[N] = spac(30) 

next 
* Abre o arquivo padrao Cobol 
1f 1file(NTELADEF) 

G 20, 20 say 'Definição da tela ainda no 
Criada...” 

for A = 1 to 1000 

next 
endi 
























TEXTO = memoread (NTELADEF) 
rest from &NTELAMEM addi 
IND = 0 
* Preenche matrizes com linhas do campo 
Memo. 
decl linhas[24] 
for lin = 1ito 24 

linhas [lin] = memoline(TEXTO,80,LIN) 
next 
* Forma tabela de caracteres validos 
ASCII = chr(32)+chr(45) 
for B = 48 to 57 

ASCII = ASCII + chr(B) 
next 
for B = 65 to 90 

ASCII = ASCII + chr(B) 
next 
* Gera o arquivo D.0O.S com as definicoes da 
tela. 
















NOMEVAR = spac(30) 
Z TIPT = spac(01) 
Z ROT = spac(30) 






set curs on 

e 02, 25 say “Criando Lay-out para Linguagem 
Cobol”' 

G& 05, 05 say “Cria tela de Dados [Wl]ork/ 
[P]rocedure ?' get Z TIPT pict '1' |; 
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Gerador de telas - parte Final 


Micro: IBM PC XT/AT 
Memória: 512 KBytes 
Vídeo: CGA 

Linguagem: Clipper 
Requisitos: Nenhum 

CO CAN CEE SRS! 


valid(Z TIPT $ 'WP') 
read 
lf lastkey() == 27 
rele all like *.,* 
retu 
endi 
l£f Z TIPT == 'W' 
TAB ATRIB([1] 
TAB ATRIB[2]) 
TAB ATRIB[3] 
TAB ATRIB[4] 
TAB TIPO[1)] 
TAB TIPO[2] 
TAB TIPO([3) 
TAB TIPO[4] 
else 
& 07, 05 say 'Nome da Sub-Rotina com 
definição de tela.:' get NOMEVAR ; 
pict 'G!' valid £f nome() 


ts 


'HIGALIGHT * 
*'REVERSE-VIDEO * 
“BLINK * 

“USING * 

“FROM 

"TO 2 


t+ 


read 

if lastkey() == 27 
fclose (NUMAROQ) 
rele all like *.* 
retu 

endi 

G 07, 05 say spac(73) 

Z ROT = NOMEVAR 

TAB ATRIB([1] 

TAB ATRIBÍ2)] 

TAB ATRIB([3] 

TAB ATRIB[4] 

TAB TIPO[1] 

TAB TIPO[2] 

TAB TIPO[3] 

TAB TIPO([4] 

endi 


* F 
. 


' ZERO-FILL. ' 
*AUTO-SKIP. ' 

' SPACE-FILL. * 

* WITH PROMPT * 
* WITH UPDATE * 
* WITH BEEP * 


+ 


set curs off 
for LIN = 1 to 24 
LINHA2 = LINHAS [LIN) 
if !empty(LINHA2) 
do f£f acha with LIN,LINHAZ 
Ef lastkey() == 27 
retu 
endi 
endi 
LINHAS [LIN] = LINHA2 
next 
L£ TF2 
& CRIA = espac(01) 
set curgs on 
e 16, 05 say “Cria WORKING-STORAGE 
SECTION <S/N>:' get Z CRIA pict '!'; 
valid(Z CRIA $ 'SN') 
read 
l1f lastkey() == 27 
fclogse (NUMARQ) 








rele all like *.* 
retu 
endi 
e 18, 35 say 'Aguarde...' 
if file(NTELACOB) 
dele file &NTELACOB 
endi 
NUMARQ = fcreate(NTELACOB, 0) 
if £ferror() != 0 
tone (700,1) 
tone (500,1) 
e 20, 25 say 'Problemas na criação do 
arquivo: '+gtr(ferror(),2) 
wait '*” 
endi 
get curs off 
if Z CRIA == '8"' 
for À = 1 to IND 
£f glin(LINHA,WORK[A]) 
next 
Z LINHA = spac(07)+'SCREEN SECTION. 
'+chr(13)+chr(10) 
fwrite(NUMARQ, Z LINHA, len(Z LINHA)) 
endi 
1f Z TIPT == 'W' 
Z LINHA = spac(07)+'01 
'“+alltrim(NTELA)+'-W.' 
£f glin(Z LINHA) 
for A = 1 to IND 
f glin(LINHA TELA[A)) 


if type('LINHA TEZ[A]') l= 'U' 
£f glin(LINHA TE2[A]) 
endi 
next 
endi 
else 


if file (NTELACOB) 
dele file &NTELACOB 
endi 
NUMARQ = fcreate (NTELACOB,O0) 
1f ferror() !=0 
tone(700,1) 
tone (500,1) 
e 20, 25 say 'Problemas na criação do 
arquivo: '+getr(ferror(),2) 
walt '*' 
endi 
endi 


Z LINHA = spac(07)+'01 '+alltrim(NTELA)+'.' 


£f glin(Z LINHA) 
Z LINHA = spac(11)+'03 BLANK SCREEN. ' 
£f glin(Z LINHA) 
* Faz a moldura padrao 
lf M FLAGM == '8" 
£f moldura() 
endi 
* Gera tela de Constantes 
for LIN = 1 to 24 


11£f (empty (LINHAS [LIN]),f acha p(LIN,LINHAS[LIN]),'') 


next 
* Gera linhas na Procedure Division 
1£ TF2 
lf Z TIPT == 'P' 
Z LINHA = spac(06)+'*** Bloco com 
definicao de tela de Entrada **** 
f glin(Z LINHA) 
& LINHA = spac(07)+alltrim(Z ROT)+'.' 
£f glin(Z LINHA) 
for A = i to IND 
£ glin(LINHA PROCI[A]) 
if type('LINHA PRO2Z[A]') != 'U' 
f glin(LINHA PRO2[A]) 
endi 
next 
endi 
endi 
fwrite (NUMARQ, chr(26),1) 
fclogse (NUMARQ) 
rele all like *.* 


retu 


ZIZIAZAIZZAIAZAZADADARS 


proc f acha 
LXXRAXXAZZAZAAAZAAAZAS 
* Cria ag variaveis 
para LIN, STRING 
priv PIC, COLUNA 
VARIAVEL = *”? 


ESPACOS = '** 
PICTURE = ** 
PICTURE2 = ** 
ATRIB m 4º 
PIC = 0 
A = 1i 
TIPO =" 
NOMEVAR = spac(30) 
Z CRIA = spac(01) 


* Localiza variavel 
for A = 1 to 80 


if subs(STRINCG,A,1) $ 'x&*” 
COLUNA = À 
do whil subs(STRING,A,1) $ 'x&*4.,' 
VARIAVEL = VARIAVEL + 
subs (STRING,A, 1) 
lf subs(STRING,A,1) $ 'xH*” 
PIC = PIC + 1 
endi 
A =A+Il 
enda 
do £f mostra v 
1f lastkey() == 27 
retu 
endi 
Z CONF = lf(Z CRIA == 'S',.t.,.£.) 
l£ & CONF 
TP2 = .T. 
IND = IND + 1 


* 


* Linhas da Working-Storage 

w 

LINHA TELA [IND] = spac(11)+'03 
LINE '+strzero(LIN,2)+' COLUMN '+; 

strzero (COLUNA, 2) +PICTURE 

LINHA TE2 [ IND) = 
spac (15) +ATRIB+TIPO+ralltrim(NOMEVAR)+'.* 

LINHA WORK [IND] = 
spac(07)+'77'+gpac(02) +NOMEVAR+PICTURE2Z+ESPACOS 

+ 


* Linhas da Procedure Division 
* 
& LINHA = 
spac(11)+'ACCEPT ('+strzero(LIN,2)+' “+; 
strzero(COLUNA,2)+') 
*+alltrim(NOMEVAR)+; 
TIPO+ATRIB 
if len(Z LINHA) <= 72 
LINHA PROC[IND] = Z LINHA 
else 
LINHA PROC[ IND] a 
spac(11)+'ACCEPT ('+getrzero(LIN,2)+', '+; 


strzero(COLUNA,2)+') 
“+alltrim(NOMEVAR)+; 
TIPO 
LINHA PRO2 [IND] = 
spac(11)+ATRIB 
endi 
TAM = len(VARIAVEL) 
STRING = 
stuff (STRING, COLUNA, TAM, spac (TAM) ) 
endi 
VARIAVEL = !*! 
ESPACOS = !*? 
PICTURE = *! 
PIC = 0 
1f IND > 0 
TAB NOM[IND] = NOMEVAR 


endi 


NOMEVAR = spac(30) 
ATRIB = Mo 
TIPO e A 
Z CRIA = espac(01) 
endi 
next 
retu 


ASAS ZAZIAXAAHAÃX) 


proc f mostra v 

LARA ZAXZRAZXZXRXAXA) 

priv Z TAB 

* Quando for variavel do tipo alfanumerico 
ou data, sera 


* retirado os pontos e as virgulas da mesma. 


if subs (VARIAVEL,1,1) == 'x' .or. 
subs (VARIAVEL,1,1) um “A' 
VARIAVEL = strtran(VARIAVEL,'.') 
VARIAVEL = strtran(VARIAVEL, ',') 
endi 


do case 
case subs (VARIAVEL,1,1) == 'x” 
Z TAB = 'Alfanumérica”' 
ESPACOS = '*' VALUE SPACES. ' 


PICTURE = *' PIC 
X('+strzero(PIC,3)+')' 
PICTURE2Z = PICTURE 
case subs (VARIAVEL,1,1) == '4* 
Z TAB = 'Data”' 
ESPACOS = ' VALUE ZEROS. ' 


do case 
case PIC «< 3 
PICTURE = '*' PIC 99' 
PICTUREZ = '*' PIC 


9('+etrzero(PIC,3)+')' 
case PIC > 2 .and. PIC < 5 
PICTURE = 'PIC 99/99'7 
PICTURE2 = '* PIC 
9('+etrzero(PIC,3)+')' 
case PIC > & 
PICTURE = '* PIC 99/99/99" 
PICTURE2Z = ' PIC 
9('+strzero(PIC,3)+')' 
endc 
case subs (VARIAVEL,1,1) == '&' 
Z TAB = 'Numérica' 
ESPACOS = ' VALUE ZEROS. ' 
lf ('.' $ VARIAVEL) .or. (',' $ 
VARIAVEL) 
VARIAVEL = 
strtran(VARIAVEL, '&','2Z') 
PICTURE = '* PIC '+VARIAVEL 
VARIAVEL = 
strtran(VARIAVEL,'Z','&') 
else 
PICTURE = * PIC 
9('+gtrzero(PIC,3)+')” 
endi 
VIRG = len(VARIAVEL) - 
at (*,', VARIAVEL) 
if at(',', VARIAVEL) > 0 
PIC2 = PIC - VIRG 
PICTUREZ2 = '* PIC 
9('+etrzero(PIC2,3)+')' 
PICTURE2 = 
PICTURE2+'V'+repl('9',VIRG) 
else 
PICTURE2Z = '* PIC 
9('+strzero(PIC,3)+')* 
endi 
endc 
& CRIA = spac(01) 
a 05, 00 say STRING 
set colo to I 
e 05, COLUNA-i say VARIAVEL 
set colo to . 
e 10, 05 say 'Cria variável <S/N>:' 
e 12, 05 say 'Variável tipo:'+Z TAB+' com a 
picture de: '+str(PIC,3)+; 
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* Caracteres. '+spac(10) 
G 14, 05 say 'Nome da variável...:'+epac(35) 
get curs on 
G 10, 26 get Z CRIA pict '!' valid Z CRIA 
E “SN” 
read 
lf Z. CRIA == '8' 
e 14, 26 get NOMEVAR pict 'G!' valid 
f nome() 
read 
if lastkey() == 27 
fclose (NUMARQ) 
rele all llke *.* 
retu 
endi 
l£f Z TIPT == 'W' 
G 16, 04 to 18,31 
é 17, 05 prom “Using * 
G& 17, 15 prom 'From '* 
6 17, 25 prom “To ) 
menu to IND TIP 
TIPO = TAB TIPO[IND TIP) 
GQ 20, 04 to 22,67 
G 21, 05 prom 'Sem Atributo ” 


G 21, 20 prom 'Highlight E 
G 21, 35 prom 'Revergse-Video”' 
e 21, 53 prom 'Blink Ê 


menu to IND ATR 
ATRIB = TAB ATRIB[IND ATR)] 


G 16, 04 clea to 22, 67 

else 
G 16, 04 to 18,70 
G 17, 05 prom 'Prompt , 
e 17, 20 prom 'Update Ê 
G 17, 35 prom 'Beep Ê 
G 17, 50 prom '8/Parametros' 


menu to IND TIP 
TIPO = TAB TIPO[IND TIP] 
e 20, 04 to 22,73 
G 21, 05 prom 'N/Parametros' 
e 214 20 prom 'Zero-Fill 
G& 21, 35 prom 'Auto-Skip ? 
G 21, 50 prom 'Space-Fill 
menu to IND ATR 
ATRIB = TAB ATRIB[IND ATR] 
G 16, 04 clea to 22, 73 
endi 
endi 


set curs off 
retu 


RAZAZAXZAZAZEAARAS 


func f nome 
LRXXAZAAEZAAHEZAR! 
* Consiste a formacao da variavel 
1f !isalpha(NOMEVAR) 
retu .F. 
endi 
for LETRA = 1 to len(NOMEVAR) 
: 1f | (gubs (NOMEVAR, LETRA, 1) $ ASCII) 
retu .F. 
endi 
next 


for N = 1 TO IND 
if NOMEVAR == TAB NOM[N] 


N = 100 
retu .F. 
endi 
next 
retu .T. 


LXALZZIZAXIZAIZZHASAX) 


func f acha p 
AXIS IZAXZAXXAKHAEA) 


* Cria a linha de constanstes da SCREEN 





SECTION. 
para LIN, STRING 
Z LEFT = len(STRING) 
& STRING = ltrim(STRING) 
Z LEFT = 4 LEFT - len(Z STRING) + 1 
Z& STRING = rtrim(Z STRING) 
Z BRANCO = chr(32)+chr(32) 
Z& CONTA = 0 


* Verifica se a linha preenche os 80 
caracteres 


if !(Z BRANCO $ STRING) 
FLAG LIN C = ct. 
FLAG TIP = «f. 
else 
FLAG LIN C = .£. 
FLAG TIP E st: 
endi 


* Acha as strings e separa em tamanhos de 
30 caracteres 
do whil (Z BRANCO $ STRING .and. 
lempty (STRING)) .or. FLAG LIN C 
if Z CONTA > 50 
tone (700,2) 
tone (500,2) 
€ 23, 25 say 'Erro na geração da 
tela...” 
wait '** 
exit 
endi 
Z CONTA = Z CONTA + 1 
1f FLAG TIP 
if len(Z STRING) < 3 
Z& SUBSTR = ltrim(Z STRING) 
else 
Z SUBSTR = 
subs (Z STRING, 1,at (Z BRANCO,Z STRING)-1) 
lf Z CONTA > 24 
Z SUBSTR = 
subs (Z STRING,1, len(Z STRING)) 
endi 
endi 
else 
& SUBSTR = alltrim(Z STRING) 
endi 
if len(Z SUBSTR) > 0 
if len(Z SUBSTR) < 31 
Z LINHA = spac(11)+'03 LINE 
“+strzero(LIN,2)+' COLUMN '+; 
strzero(Z LEFT,2)+' 
VALUE “'+Z SUBSTR+'".' 
£f glin(Z LINHA) 
else 
&& tem mais de 30 caracters 
& LINHA = spac(11)+'03 LINE 
“+strzero(LIN,2)+' COLUMN '+; 
strzero(Z LEFT,2)+' 
VALUE ”“'+subs(Z SUBSTR,1,30)+'".' 
£f glin(Z LINHA) 
Z REST = len(Z SUBSTR) - 30 


if len(Z SUBSTR) < 61 
& LINHA = spac(11)+'03 LINE 
'+strzero(LIN,2)+' COLUMN '+; 
strzero(Z LEFT+30,2)+' 
VALUE “'4; 
subs (Z SUBSTR,31,Z REST)+'”,' 
£f glin(Z LINHA) 
else 
& LINHA = spac(11)+'03 LINE 
“+etrzero(LIN,2)+' COLUMN '+; 
etrzero(Z LEFT+30,2)4+4' 
VALUE “'4; 
subs (Z SUBSTR,31,30)+'”.,' 
£f glin(Z LINHA) 
Z REST = len(Z SUBSTR) - 60 
Z& LINHA = spac(11)+'03 LINE 
'+ptrzero(LIN,2)+' COLUMN '+; 
strzero(Z LEFT+60,2)+' 
VALUE “'4+; 


subs (Z SUBSTR,61,Z REST)+'".' 
f glin(Z LINHA) 


endi 
endi 

endi 
STRING = 

stuff (STRING, Z LEFT, len(Z SUBSTR), spac (len( & SUBSTR))) 
& LEFT = len(STRING) 
& STRING = ltrim(STRING) 
& LEFT = & LEFT - len(Z STRING) + 1 
FLAG LIN C = .£f. 

endd 
retu '' 


ASIA ZXAXXEXAÃ) 
func £f glin 


LAXZXXXZEZIEXZZEEEXAÃE; 
* Gera linhas no arquivo de descricao da 
Screen. 
para BUFFER 
BUFFER = BUFFER+chr(13)+chr(10) 
fwrite (NUMARQ, BUFFER, len (BUFFER) ) 
if ferror() !=0 
tone (400,2) 
tone (300,2) 
e 23, 10 say ; 
'Problemas na Gravação, Verifique se 
o disco não está cheio... 
wait '* 
canc 
endi 
fseek (NUMARQ,O,1) 
retu '*”* 


AAARAALZAZAXXZAÃZAS 


func f moldura 
ARA XXXZAEEZEXKAKS 
* Gera moldura de acordo com parametros 
passados. 
for A = M LIN1 TO M LIN2 
& LINHA = spac(11)+'03 LINE 
'+gtrzero(A,2)+' COLUMN 
'+strzero(M COL1,2)+; 

* VALUE '+'"'+,+chr(186)+'”,'” 
£f glin(Z LINHA) 
& LINHA = spac(11)+'03 LINE 
'+gstrzero(A,2)+' COLUMN 
'+strzero(M COL2,2)+; 

* VALUE '+'”"',+chr(186)+4'".” 
£f glin(Z LINHA) 
next 


& LINHA = spac(11)+'03 LINE 
'+Btrzero(M LIN1,2)+' COLUMN 
'+strzero(M COL1+1,2)+; 

* PIC X('+strzero((M COL2- 
(M COL1+1)),2)+') FROM ALL 
"e!" schr(205)+'".! 
£f glin(Z LINHA) 
& LINHA = spac(11)+'03 LINE 
'+strzero(M LIN2,2)+' COLUMN 
'+strzero(M COL1+1,2)+; 

* PIC X('+strzero((M COL2- 
(M COL1+1)),2)+') FROM ALL 
“4'vtschr(205)+'”,' 
£f glin(Z LINHA) 
& LINHA = spac(11)+'03 LINE 
'+Btrzero(M LIN2,2)+' COLUMN 
'+strzero(M COL1,2)+; 

* VALUE '+'"'"+chr(200)+'”.” 
£f glin(Z LINHA) 
& LINHA = spac(11)+'03 LINE 
'+gstrzero(M LIN2,2)+' COLUMN 
'+strzero(M COL2,2)+; 

* VALUE '+'"'+chr(188)+'”.' 
£f glin(Z LINHA) 
Z& LINHA = spac(11)+'03 LINE 
'+strzero(M LIN1,2)+' COLUMN 
“+strzero(M COL1,2)+; 
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* VALUE '+'"'4+chr(201)+'”.' 
f glin(Z LINHA) 
Z LINHA = spac(11)+'03 LINE 
'+gtrzero(M LIN1,2)+' COLUMN 
'+gstrzero(M COL2,2)+; 

* VALUE '+'“'+chr(187)+'".'! 


f glin(Z LINHA) 


retu '*”* 


* Fim do Programa:GTELALL.PRG 


CIT DANNO 


* Programa: GTELAÍ2 
* Funcao..:Gera programa fonte na linguagem 
Basic. 
* Chamado. :GTELAIO.PRG 
* Gerador BASIC. 
TF2 = .F. 
decl LINHA TELA[100], TAB NOM(99] 
clea scre 
G 01, 01 to 03, 79 
e 02, 30 say 'Aguarde...' 
e 04, 01 to 24, 79 
for N = 1 TO 99 
TAB NOM[N] = spac(30) 
next 
* Abre o arquivo padrao Basic 
if iIfile(NTELADEF) .or. !file(NTELAMEM) 
e 20, 20 say 'Definição da tela ainda no 
Criada...!' 
for A = 1 to 1000 
next 
endi 
TEXTO = memoread (NTELADEF ) 
rest from &NTELAMEM addi 
M LIN1 str(M LIN1,2) 
















































M LIN2 = str(M LIN2,2) 
M COL1 = str(M COL1,2) 
M COL2 = etr(M COL2,2) 


decl linhas [24] 
for lin = 1 to 24 
linhas [lin] = memoline (TEXTO, 80, LIN) 
&& Preenche matrizes com linhas. 
next 
&& do campo tipo Memo. 
* Forma tabela de caracteres validos 
ASCII = chr(32) 
for B = 48 to 57 
ASCII = ASCII + chr(B) 
next 
for B = 65 to 90 
ASCII = ASCII + chr(B) 
next 
* Gera o arquivo D.0.S com as definicoes da 
tela. 
Z NLIN a 0 
IND = 0 
get curs on 
e 02, 05 say “Cria Lay-out para Linguagem 
Basic - Linha de Inicio da Rotina:” ; 
get Z NLIN pict '99999' 
valid(Z NLIN < 65000) 
read 
if lastkey() == 27 
rele all like *.* 
retu 
endi 
set curgs off 
* Gera tela de Variaveis 
for LIN = 1 to 24 
LINHAZ = LINHAS [LIN] 
lf !empty (LINHA2Z) 
do f val bas with LIN, LINHAZ 
L1£ lastkey() == 27 
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retu 
endi 
endi 
LINHAS [LIN] = LINHAZ 
next 
* Faz a moldura padrao Basic 
e 18, 35 say 'Aguarde...' 
if file (NTELABAS) 
dele file &NTELABAS 
endi 
NUMARQ = fcreate (NTELABAS,O) 
if ferror() != 0 
tone (700,1) 
tone (500,1) 
e 20, 25 say 'Problemas na criação do 
arquivo: '+str(ferror(),2) 
wait ** 
endi 
1£f M FLAGM = 
f mold b() 
endi 
* Gera tela de Constantes 
Z LINHA = str (add(€Z NLIN),5)+' REM ——> 
DISPLAY DA TELA” 
£ linb(Z LINHA) 
for LIN = 1 to 24 
11£ ( !empty (LINHAS [LIN] ), É lincons (LIN, LINHAS [LIN] ), '*) 
next 
l1f IND > 0 
Z LINHA = str (add(eZ NLIN),5)+' REM —> 
ENTRADA DE DADOS* 
£f linb(Z LINHA) 
7% LINHA = str (add(€Z NLIN),5)+' COLOR 
15 
£f linb(Z LINHA) 
endi 
for A = 1 to IND 
£ linb(str (add(eZ NLIN),5)+LINHA TELA [A]) 
next 
lf IND > 0 
Z LINHA = str (add(GZ NLIN),5)+' COLOR 
7,0" 
£f linb(Z LINHA) 
endi 
fclose (NUMARQ) . 
rele all like *.* 
retu 


“8! 


XXXII ARAXZAAAAS 


proc f val bas 

CRAXEAEAZRZRXXAAZARAS 

* Cria as variaveis 

para LIN, STRING 

priv PIC, COLUNA, VARIAVEL, NOMEVAR 
VARIAVEL ns 

ESPACOS 
PICTURE 
PICTUREZ 
PIC 

A 

ZP 
NOMEVAR gpac (30) 
Z CRIA spac (01) 
* Localiza variavel 
for A = 1 to 80 


24 


if subs(STRING,A,1L) $ 'x%*' 
COLUNA = A 
do whil subs(STRINCG,A,1) $ 'x&*.,' 
VARIAVEL = VARIAVEL + 
gubs (STRING,A,1) 
lf subs(STRING,A,1) $ 'x&*” 
PIC = PIC + 12 
endi 
A=z=A+1i 
endd 
do É most bas 
l£f lastkey() == 27 








retu 
endi 
& CONF = if(Z CRIA == 'S',.t.,.£f.) 
if Z CONF 
TF2 = .T. 
IND = IND + 1 
TAM = len(VARIAVEL) 
LINHA TELA [IND) = *' LOCATE 
'+str (LIN, lennum (LIN))+', '+str (COLUNA,2)+; 
* 3 PRINT 
STRING$('+etrzero(TAM,2)+',chr$('+; 
Btr(Z P,2)+')):LOCATE 
'+8tr(LIN,2)+','+; 
str (COLUNA, 2)+': INPUT 
“”,* ANOMEVAR 
STRING = 
gtuff (STRING, COLUNA, TAM, spac (TAM) ) 
endi 
VARIAVEL 
PIC 0 
if IND 0 
TAB NOM[IND] = NOMEVAR 
endi 
NOMEVAR = spac(30) 
Z CRIA = spac(01) 
endi 
next 
retu 


44 


vu 


ALAS AAASARA) 


proc f most bas , 
IRAAZAXZAXAXAXAKAAXES 
priv Z TAB 
* Quando for variavel do tipo alfanumerico 
ou data, sera 
* retirado os pontos e ag virgulas da 
mesma. 
1lf subs (VARIAVEL, 1,1) == 'x' .or. 
subs (VARIAVEL,1,1) == '4" 
VARIAVEL = strtran(VARIAVEL,'.') 
VARIAVEL = strtran(VARIAVEL,',') 
endi 


do case 
case subs (VARIAVEL,1,1) == 'x' 
Z TAB = 'Alfanumérica' 
& P = 46 
case subs (VARIAVEL,1,1) == '&' .or. 
subs (VARIAVEL,1,1) == "4" 
Z TAB = 'Numérica' 
ZP = 48 
endc 


Z CRIA = spac(01) 
e 05, 00 say STRING 
set colo to I 
G 05, COLUNA-1 say VARIAVEL 
set colo to 
e 10, 05 say “Cria variável <S/N>:' 
e 12, 05 gay “Variável tipo:'+Z TAB+' com a 
picture de: '+str(PIC,3)+; 
* Caracteres. '+spac(10) 

e 14, 05 gay 'Nome da 
variável...:'+spac(35) 
get curs on 
e 10, 26 get Z CRIA pict '!' valid Z CRIA 
$ “9N' 
read 
1f Z CRIA == '8' 

G 14, 26 get NOMEVAR pict 'G!' valid 
f nomeb() 


read 
if lastkey() == 27 

fclose (NUMARQ) 

rele all like *.* 

retu 
endi 
1f IND > 0 

TAB NOM[IND] = NOMEVAR 

endi 


if subs (VARIAVEL,1,1) == 'x” 
NOMEVAR = alltrim(NOMEVAR)+'$' 
else 
NOMEVAR = alltrim(NOMEVAR) 
endi 
endi 
get curs off 
retu 


+rtrrrrrrrtrerrias 


func f nomeb 
IAARRAZAAAZAAZARKARS 


* Consiste a formacao da variavel 


if !igalpha (NOMEVAR) 
retu .F. 
endi 
for LETRA = 1 to len(NOMEVAR) 
if ! (subs (NOMEVAR, LETRA, 1) $ ASCII) 
retu .F. 
endi 
next 
for N = 1 TO IND 
lf NOMEVAR == TAB NOM[N] 
N = 99 
endi 
next 
retu(iif(N == 100,.F.,.T.)) 


RALIS A) 


func f lincons 
ZAXXZEXZEAZAZAZRAZHAE! 
* Cria a linha de constanstes da Tela 
Padrao Basic 
para LIN, STRING 
Z LEFT = len(STRING) 


Z STRING = ltrim(STRING) 
Z LEFT = Z LEFT - len(Z STRING) + 1 
Z STRING = rtrim(Z STRING) 


Z LINHA = str(add(6Z NLIN),5)+' LOCATE 
“+str (LIN,2)+','+astr(Z LEFPT,2) 
£f linb(Z LINHA) 
if len(Z STRING) < 50 
Z LINHA = str(add(€Z NLIN),5)+' 
PRINT “'+Z STRING+'”* 
£f linb(Z LINHA) 
else 
Z LINHA = str (add(6Z NLIN),5)+' PRINT 
“'+gubs (Z STRING,1,50)+'”” 
£f linb(Z LINHA) 


Z REST = Jlen(Z STRING) - 50 
Z& LEFT = Z LEFT + 50 
Z LINHA = str(add(0Z NLIN),5)+” 


LOCATE '+str(LIN,2)+','+etr(Z LEFT,2) 
£f linb(Z LINHA) 
Z LINHA = etr(add(€Z NLIN),5)+' PRINT 
“' +gubs(Z STRING,51,Z REST)+'”' 
£ linb(Z LINHA) 
endi 
retu '* 


LARAZAAALLALAAAZXHARA SS 


func £f linb 
AAA RAXAAARAS 
* Gera linhas no arquivo Texto. 
para BUFFER 
BUFFER = BUFFER + spac(78- 
len (BUFFER) )+chr(13)+chr(10) 
fwrite (NUMAROQ, BUFFER, len (BUFFER) ) 
if ferror() !=0 
tone (400,2) 
tone (300,2) 
e 23, 10 say 'Problemas na 
Gravação, Verifique se o disco não está 
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chelo...' 
wait '' 
canc 
endi 
fseek (NUMARQ,O0,1) 
retu '** 
AXIS XZAXESAZEAXZRES 


func £f mold b 
XXXI XZEZAXAXERAXHA) 
* Gera moldura de acordo com parametros 
passados. ' 
priv Z LINH 
& LINH = str(val(M COL2) - val(M COL1),2) 
Z LINHA = str(Z NLIN,5)+' REM —-> MOLDURA 
PADRÃO * 
£f linb(Z LINHA) 
Z. LINHA = str (add(€Z NLIN),5)+' CLS*' 
£f linb(Z LINHA) 
Z LINHA = str(add(€Z NLIN),5)+' FOR LIN = 
“+M LIN1I+' TO '+M LIN2 
£f linb(Z LINHA) 
Z LINHA = str (add(€Z NLIN),5)+' LOCATE 
LIN,'+M COL1+':PRINT CHR$(186);' 
£f linb(Z LINHA) 
& LINHA = str (add(6Z NLIN),5)+' LOCATE 
LIN, '+M COL2+': PRINT CHR$(186);' 
£f linb(Z LINHA) 
& LINHA = str(add(6Z NLIN),5)+' NEXT LIN' 
£ linb(Z LINHA) 
%&. LINHA = str (add(€Z NLIN),5)+' LOCATE 
"4+M LIN1I+','+M COLI+; 
| "2 PRINT STRINGS ('+Z LINH+',205);' 

£f linb(Z: LINHA) 
& LINHA = str (add(0Z NLIN),5)+' LOCATE 
*+M LIN2+','+M COLI+; 

* Ss PRINT STRINGS ('+Z LINH+',205);' 
£f linb(Z LINHA) 
Z& LINHA = str (add(€GZ NLIN),5)+' LOCATE 
*“+M LIN1I+','+M COLI+; 

*s PRINT CHR$(201);' 
£f linb(Z LINHA) 
Z LINHA = str (add(€Z NLIN),5)+' LOCATE 
"+M LINI+','+M COL2+; 

*s PRINT CHR$(187);' 
£ linb(Z LINHA) 
& LINHA = str (add(€Z NLIN),5)+' LOCATE 
"+M LIN2+','+M COLI+; 

*: PRINT CHR$(200);* 
£f linb(Z LINHA) 
Z& LINHA = str (add(€Z NLIN),5)+' LOCATE 
“4+M LIN2+','+M COL2+; 

*: PRINT CHR$(188);' 
£ linb(Z LINHA) 
retu '*'* 
AXZAXAXHEXZE) 


func add 

+44trrIRARA 

para Z NLIN 

* Adiciona de dez em dez no numero de linha 
do Programa. 

Z NLIN = Z NLIN + 10 

retu (Z NLIN) 

* Fim do Programa:GTELAi2.PRG 


CSPE 


* Programa:GTELA13 
* Funcao..:Gera programa fonte na linguagem 
QuickBasic. 

* Chamado. :GTELALO. PRG 

* Gerador QUICKBASIC. 

TF2 = .F. 

decl LINHA TELA[100], TAB NOM[99] 

clea scre 

e 01, 01 to 03, 79 

6 02, 30 say 'Aguarde...” 

e 04, 01 to 24, 79 
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for N = ií'TO 99 
TAB NOM[N] = spac(30) 
next 
* Abre o arquivo padrao QuickBasic 
1f !file(NTELADEF) 


e 20, 20 say 'Definição da tela ainda no 


Criada...” 
for A = 1 to 1000 
next 
endi 
TEXTO = memoread (NTELADEF ) 
rest from &NTELAMEM addi 


M LIN1I = str(M LIN1,2) 
M LIN2 = str(M LIN2,2) 
M COL1 = str(M COL1,2) 
M COL2 = str(M COL2,2) 
* 


decl linhas [24] 
for lin = 1 to 24 
linhas [lin] = memoline (TEXTO, 80, LIN) 
&& Preenche matrizes com linhas. 
next 
&& do campo tipo Memo. 
* Forma tabela de caracteres validos 
ASCII = chr(32) 
for B = 48 to 57 
ASCII = ASCII + chr(B) 
next 
for B = 65 to 90 
ASCII = ASCII + chr(B) 
next 


* Gera o arquivo D.0.8S com as definicoes da 


tela. 
Z. NROT = spac(20) 
IND = 0 
set curs on 
e 02, 03 say 'Lay-out para Linguagem 
QuickBasic - Nome da Rotina:' ; 
get Z NROT pict '€]!' 
valid(f testr()) 
read 
1£ lastkey() um 27 
rele all like *.* 
retu 
endi 
Z. NROT = alltrim(Z NROT)+':* 
set curs off 


* Gera tela de Variaveis 
for LIN = 1 to 24 
LINHA2 = LINHAS [LIN]) 
1£f !empty(LINHA2) 
do f val qbas with LIN, LINHA2 
if lastkey() == 27 
retu 
endi 
endi 
LINHAS [LIN] = LINHA2 
next 
G 18, 35 say 'Aguarde...' 
1f file (NTELAQBAS) 
dele file &NTELAQBAS 
endi . 
NUMARQ = fcreate(NTELAQBAS, 0) 
1f ferror() !I= 0 
tone(700,1) 
tone (500,1) 
e 20, 25 say 'Problemas na criação do 
arquivo: '+str(ferror(),2) 
wait '” 
endi 
* Faz a moldura padrao QuickBasic 
£f lingb(Z NROT) 
if M FLAGM um '8' 
£f mold ab() 
endi 
* Gera tela de Constantes 
Z LINHA = * REM —> DISPLAY DA TELA' 





£f lingb(Z LINHA) 
for LIN = 1 to 24 

E q 
nex 


1£f IND > 0 
& LINHA = * REM -——> ENTRADA DE DADOS”*' 
£f lingb(Z LINHA) 
& LINHA = * COLOR 15 
£ lingb(Z LINHA) 
endi 


for A = 1 to IND 
£f lingb(LINHA TELA[A)]) 
next 
41f IND > 0 
Z. LINHA = COLOR 7,0' 
£f lingqb(Z LINHA) 
endi 
fclose (NUMARQ) 
rele all like *.* 
retu 


XZALXAXZEAIAXXAXZRERHE! 

proc £f val qbas 

RALAAXXXZAAXRAXAADA) 

* Cria as variaveis 

para LIN, STRING 

priv PIC, COLUNA, VARIAVEL, NOMEVAR 
EM) 


VARIAVEL = 

ESPACOS = ** 
PICTURE = '* 
PICTURE2 = '* 

PIC = 0 

PN = 2 

GP a Q 
NOMEBEVAR = spac(30) 
Z. CRIA = espac(01) 


* Localiza variavel 
for À = 1 to 80 
if subs(STRING,A,1) $ 'xk4' 
COLUNA = À m 
do whil subs(STRING,A,1) $ 'x&*.,' 
VARIAVEL = VARIAVEL + 
subs (STRING,A, 1) 
1£f subs(STRING,A,1) $S 'x&+*”* 
PIC = PIC + 1 
endi 
A = A+ 
endd 
do f most qbas 
1f lastkey() == 27 
retu 
endi 
Z CONP = if(Z CRIA == 'S',.t.,.£.) 
1£ Z CONF 
TF2 = TP. 
IND = IND + 2 
TAM = len(VARIAVEL) 
LINHA TELA[IND] = * 
*+str(LIN,2)+','+str (COLUNA, 2)+; 
j *s PRINT 
STRINGS ('+strzero(TAM,2)+',chr$('+; 
str(Z P,2)+')):LOCATE 


/ 


LOCATE 


'+9tr(LIN,2)+','+35 
str (COLUNA, 2) +': INPUT 
“», * +ANOMEVAR 
STRING = 
stuff (STRING,COLUNA, TAM, spac (TAM) ) 
endi 
VARIAVEL = '** 
PIC = O 
NOMEVAR = spac(30) 
& CRIA = spac(01) 
endi 
next 
retu 


SALAS TZAAXZIAXAÃAS 
proc f most qbas 


MM TIIIILIISIIAIISIA IT, 


priv Z TAB 
* Quando for variavel do tipo alfanumerico 
ou data, sera 
* retirado os pontos e as virgulas da 
mesma. 
if subs (VARIAVEL,1,1) == 'x' .or. 
suba (VARIAVEL, 1,1) mm “4” 
VARIAVEL = strtran(VARIAVEL,'.') 
VARIAVEL = strtran(VARIAVEL,',') 
endi 
do case 
case subs (VARIAVEL,1,1) == 'x' 
Z TAB = '*Alfanumérica' 
ZP = 46 
case subs (VARIAVEL, 1,1) == 'f' .or. 
subs (VARIAVEL, 1,1) mm !4? 
& TAB = 'Numérica' 
SP = 48 
endc 
Z CRIA = spac(01) 
G 05, 00 say STRING 
set colo to I 
& 05, COLUNA-1 say VARIAVEL 
set colo to 
e 10, 05 say “Cria variável <S/N>:' 
6 12, 05 say 'Variável tipo:'+Z TAB+' com a 
picture de: '+str(PIC,3)+; 
* Caracteres. '+spac(10) 
G 14, 05 say 'Nome da 
varlável...:'+apac(35) 
set curs on 
Q 10, 26 get Z CRIA pict '!' valiã Z CRIA 
E "“8N' 
read 
1f Z CRIA == 'S' 
G 14, 26 get NOMEVAR pict 'G!' valid 
£f nomegb() 
read 
1£ lastkey() nz 27 
fclose (NUMARQ) 
rele all like *.* 
retu 
endi 
1l£f IND > 0 
TAB NOM[IND] = NOMEBEVAR 
endi 
1f subs (VARIAVEL,1,1) == 'x” 
NOMEVAR = alltrim(NOMEVAR)+'$' 
else 
NOMEVAR = alltrim(NOMEVAR) 
endi 
endi - 
set curs off 
retu 


LXAALAXALZAXZIZAADAS 


func f nomeqb 
XALXIZAXZRAXZAZAR! 
* Consiste a formacao da variavel 
1f ti isalpha(NOMEVAR) 
retu .F. 
endi 
for LETRA = 1 to len(NOMEVAR) 
1f ! (subs (NOMEVAR, LETRA, 1) $ ASCII) 
retu .F. 
endi 
next 
for N = i TO IND 
1f NOMEVAR == TAB NOM[N] 
N = 99 
endi 
next 
retu(iif(N == 100,.F.,.T.)) 


ALIAS AASAAARO 


func f testr 
LAALXLIALSAAZRADSHÃA! 
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* Consiste a formacao nome da rotina 
if empty(Z NROT) 
retu .F. 
endi 
if !isalpha(Z NROT) 
retu .F. 
endi 
for LETRA = 1 to len(Z NROT) 
1f !(subs(Z NROT, LETRA,1) $ ASCII) 
retu .F. 
endi 
next 
retu .fT. 


A AASALALZASIAZADAAAA! 


func £f lincq 
LAXAAZARAXZXADSAXERXKAS 
* Cria a linha de constanstes da Tela 
Padrao QuickBasic 
para LIN, STRING 
Z LEFT = len(STRING) 
Z STRING = ltrim(STRING) 
2 LEFT = Z LEFT - len(Z STRING) + 1 
Z STRING = rtrim(Z STRING) 
Z LINHA a! LOCATE 
'+Btr (LIN,2)+','+9tr(Z LEFT,2) 
£f lingb(Z LINHA) 
if len(Z STRING) < 50 
Z LINHA «=! PRINT “'+Z STRING+'”' 
£f lingb(Z LINHA) 
else 
Z LINHA = * PRINT 
“'+gubs(Z STRING,1,50)+'”' 
£f lingb(Z LINHA) 
Z REST = len(Z STRING) - 50 
Z LEFT = Z LEPT + 50 
Z LINHA = * LOCATE 
'+Btr(LIN,2)+', '+str(Z LEFT,2) 
£f linqb(Z LINHA) 
Z LINHA = * PRINT 
“' +gubs(Z STRING,51,Z REST)+'”” 
£f lingb(Z LINHA) 
endi 
retu '** 


LEAL AZAZAXHADXAZAXO 


func f linqb 
LAXZXAXZXAZAXZAXAIXZXAXAZARA: 
* Gera linhas no arquivo Texto. 
para BUFFER 
BUFFER = BUFFER + spac(78- 
len (BUFFER) )+chr(13)+chr(10) 
fwrite (NUMARQ, BUFFER, len (BUFFER) ) 
1£f ferror() !I= 0 
tone (400,2) 
tone (300,2) 


e 23, 10 say 'Problemas na Gravação, 


Verifique se o disco não está cheio...” 
wait ** 
canc 
endi 
fseek (NUMARQ,O,1) 
retu '** 


AAAAZSIAAZIAADXAAAÃS 


func f mold qb 

SAZAXZAXXAXEXANEHE) 

* Gera moldura de acordo com parametros 
passados. 

priv Z LINH 

& LINH = gtr(val(M COL2) - val(M COL1),2) 


Z LINHA = * REM —-> MOLDURA PADRAO * 
£f linqb(Z LINHA) 

Z LINHA « * CLS*' 

£f linqgb(Z LINHA) 

Z LINHA = * FOR LIN = '+M LIN1I+' TO 
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*+M LIN2 

£f linqb(Z. LINHA) 

Z LINHA = * LOCATE LIN,'+M COL1+':PRINT 
CHR$ (186); 

£f linqgb(Z LINHA) 

Z LINHA = * LOCATE LIN,'+M COL2+': PRINT 
CHR$(186);' 

£f linqgb(Z LINHA) 

Z. LINHA = * NEXT LIN' 

£ linqb(Z LINHA) 

Z LINHA = * LOCATE 

*4+M LIN1I+','+M COL1l+': PRINT 
STRINGS ('+Z LINH+',205);'* 

£f linqgb(Z LINHA) 

Z LINHA = * LOCATE 

*+M LIN2+','+M COL1I+': PRINT 
STRINGS ('+Z LINH+',205);' 

£f linqb(Z LINHA) 

& LINHA u * LOCATE 

*“+M LIN1+','+M COL1+': PRINT CHR$(201);' 
£ lingb(Z LINHA) 

Z LINHA u« * LOCATE 

“+M LIN1+','+M COL2+': PRINT CHR$(187);' 
£f linqb(Z LINHA) 

Z. LINHA a * LOCATE 

"+M LIN2+','+M COL1+': PRINT CHR$(200);' 
£f lingb(Z LINHA) 

& LINHA = * LOCATE 

“+M LIN2+','+M COL2+': PRINT CHBR$(188);' 
£ linqb(Z LINHA) 


retu ''* 


CSPE ANNO 


* Programa: GTELAL4 





* Funcao..:Gera programa fonte na linguagem 


Clipper/Dbase. 
* Chamado. :GTELALO.PRG 
* Gerador CLIPPER/DBASE III. 


IND M = 0 
TP2 = .F. 
decl 


LINHA WORK [100], LINHA TELA(100], LINHA TE2[100], TA 


B ATRIB[4], TAB NOM[99] 
decl TAB MOLD[50]) 
clea gscre 
e 01, 01 to 03, 79 
G 02, 30 say 'Aguarde...' 
e 04, 01 to 24, 79 
for N = 1 TO g99 

TAB NOM[N] = spac(30) 
next 
* Abre o arquivo padrao Clipper/Dbase 
lf !file(NTELADEF) 


e 20, 20 say 'Definição da tela ainda no 


Criada...” 
for A = 1 to 1000 
next 

endi 


TEXTO = memoread (NTELADEF ) 
rest from &NTELAMEM addi 
* Preenche matrizes com linhas do campo 
Memo 
decl LINHAS[24] 
& TELA = ** 
for LIN = 1 to 24 
LINHAS [LIN)]) = memoline (TEXTO, 80,LIN) 
Z TELA = Z TELA + LINHAS[LIN) 
next 
* Forma tabela de caracteres validos 
ASCII = chr(32)+chr(95) 
for B = 48 to 57 
ASCII = ASCII + chr(B) 
next 
for B = 65 to 90 
ASCII = ASCII + chr(B) 


next 
for B = 97 to 122 
ASCII = ASCII + chr(B) 
next 
* Gera o arquivo D.0.8 com as definicoes da 
tela. 
e 02, 20 say “Criando Lay-out para 
Linguagem DbaseiClipper' 
& MENU SN = 'N' 
set curs on 
e 05, 10 say “Tela de Menu <S/N>:' get 
& MENU SN pict '1' ; 
valid(Z MENU SN $ '9N') 
read | 
1£ JIlastkey() == 27 
rele all like *.* 
retu 
endi 
set curg off 
IND = O 
1£f  Z MENU 8N == “Nº 
& TELA um '* 
for LIN = 1 to 24 
LINHA2Z = LINHAS [LIN] 
1£f !empty(LINHAZ) 
do f£f a cli with LIN,LINHA2 
1£ lastkey() um 27 
retu 
endi 
endi 
LINHAS [LIN)] = LINHAZ 
Z& TELA = Z TELA + LINHAS [LIN]) 
next 
Z CRIA = espac(01) 
1f IND > 0 
set curs on 
Z CRIA = 'S' 
GQ 16, 25 say “Cria variáveis <S/ 
N>:' get Z CRIA pict '!' |; 
valid(Z CRIA $ 'S8N') 
read 
set curs off 
endi 
andi 
e 18, 35 say 'Aguarde...' 
if file(NTELACLI) 
dele file &NTELACLI 
endi 
NUMARQ = fcreate(NTELACLI,O) 
41£f ferror() !=0 
tone (700,1) 
tone (500,1) 
e 20, 25 say 'Problemas na criação do 
arquivo: '+str(ferror(),2) 
wait '* 
endi 
& LINHA = '** Definicao da tela *** 
£f glin c(Z LINHA) 
Z LINHA = “clear screen' 
£f glin c(Z LINHA) 
* Cria molduras com comandos €G 00,00 to 
00,00 doub 
+ É 00,00 to 
00,00 
do £f simples 
do f£f dupla 
* Gera as linhas de constantes de tela 
if Z MENU SN == 'N' 
for LIN a à to 24 
11£( !empty (LINHAS [LIN] ),f c cli(LIN, LINHAS[LIN]),'') 
next 
endi 
* Cria molduras 
for LIN = 1 to INDM 
£f glin c(TAB MOLD[LIN]) 


next 

if M FLAGM == '8' 
f mod cli() 

endi 


* Cria tela de Menu 
Z. MENU SN == '8" 
& LINHA = “set wrap on' 
£f glin c(Z LINHA) 
Z. LINHA = 'set message to” 
£f glin c(Z LINHA) 
for LIN = à to 24 
14£ (!empty (LINHAS [LIN] ), £ mera c(LIN, LINHAS [LIN] ),**) 
next 
Z LINHA = 'menu to mopcao” 
£f glin c(Z LINHA) 
endi 
* Cria variaveis 
1f Z MENU SN == 'N' 
1£f IND > 0 
Z LINHA = '** Definicao da Tela de 
Entrada de Dados *** 
£ glin c(Z LINHA) 
Z. LINHA = 'set date brit' 
£ glin c(Z LINHA) 
endi 
1f Z CRIA = 'S8' 
for A = 1 to IND 
f glin c(LINHA WORKI[A]) 
next 
endi 
* Tela de Entrada de Dados 
for A = 1 to IND 
£f glin c(LINHA TELA[A]) 
next 
1f IND > 0 
& LINHA = 'read' 
£f glin c(Z LINHA) 
endi 
endi 
Z LINHA = 't+e+e** —> Bof() <— trrw*s 
£ glin c(Z LINHA) 
fclose (NUMARQ) 
rele all like *.* 
retu 
proc f a cli 
LAXZAXAXZZAZARIAXZAKÃAS 
* Cria as variaveis 
para LIN, STRING 
priv PIC, COLUNA, VARIAVEL, NOMEVAR 
VARIAVEL no 
ESPACOS 
PICTURE 
PICTURE2 
ATRIB 
PIC 
PA 
NOMEVAR spac (30) 
& CRIA spac(01) 
* Localiza variavel 
for A = 1 to 80 
1f subs(STRING,A,1) $ 'x&*” 
COLUNA = À 
do whil subs(STRING,A,1) $ 'x&*.,' 
VARIAVEL = VARIAVEL + 
subs (STRING,A, 1) 
1£ subs(STRING,A,1) $ 'x&t*' 
PIC = PIC + 1 
endi 
A =A+Ia 
endd 
do fm cli 
if lastkey() == 27 
retu 
endi 
Z. CONF = if(Z CRIA == 'S',.t.,.£f.) 
lf Z. CONF 
TF2 Es 
IND IND + 1 
TAM = len(VARIAVEL) 
LINHA TELA [IND] nn 'Q 
'+strzero(LIN,2)+', '+strzero(COLUNA,2)+; 
* get 


+ 
4. 


$ 
t 


HO. 


'+alltrim(NOMEVAR) +PICTURE 
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LINHA WORK [IND] = 
alitrim(NOMEVAR)+' = '+PICTURE2 
STRING = Ê 
stuff (STRING, COLUNA, TAM, spac (TAM) ) 
endi 
VARIAVEL = '* 
ESPACOS = !" 
PICTURE = '** 
PIC = 0 
l£f IND > 0 
TAB NOM[IND] = NOMEVAR 
endi 
NOMBEVAR = spac(30) 
ATRIB mo"? 


TIPO = !! 
& CRIA = gspac(01) 
endi 
next 
retu 


proc f m cli 
XXAZZAZAXIAZXERRAXA) 
priv Z TAB 
* Quando for variavel do tipo alfanumerico 
ou data, sera 
* retirado os pontos e ag virgulas da 
mesma. 
1£f subs (VARIAVEL,1,1) == 'x' .or. 
subs (VARIAVEL,1,1) == "4" 
VARIAVEL = strtran(VARIAVEL,'.') 
VARIAVEL = strtran(VARIAVEL,',') 
endi 
do case 
case subs (VARIAVEL, 1,1) == 'x' 
Z TAB = 'Alfanumérica' 
PICTURE = '* 

PICTUREZ = 
'gpac('+strzero(len(VARIAVEL),3)+')” 
case subs (VARIAVEL,1,1) u= '4" 

Z& TAB = 'Data” 

PICTURE = '** 

PICTURE2 = 'ctod(” / / “)" 
case subs (VARIAVEL, 1,1) == '&' 

Z. TAB = 'Numérica'' 


VARIAVEL = 
gstrtran(VARIAVEL,',',chr(10)) 

VARIAVEL = 
strtran(VARIAVEL,'.',',') 

VARIAVEL = 
gstrtran(VARIAVEL, chr(10),'.') 

PICTURE = '* pict “GE 
'+4VARIAVEL+'”! 

PICTURE2 ='0* 


endc 
& CRIA = spac(01) 
Q 05, 00 say STRING 
set colo to I 
e 05, COLUNA-1 say VARIAVEL 
get colo to 
e 10, 05 say “Cria variável <S/N>:' 
e 12, 05 say 'Variável tipo:'+Z TAB+' com a 
picture de: '+str (PIC,3)+; 
* Caracteres. '+spac(10) 
G 14, 05 say 'Nome da 
variável...:'+spac(35) 
set curs on 
e 10, 26 get Z CRIA vpict '!' valid Z CRIA 
$ "9N' 
read 
if Z CRIA == '8' 
G 14, 26 get NOMEVAR valid f nomec() 
read 
1f lastkey() == 27 
fclose (NUMARQ) 
rele all like *.,* 
retu 
endi 
endi 
set curs off 
retu 
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func f nomec 
tterrtrrrrrdr dd dd 
* Consiste a formacao da variavel 
1f !isalpha(NOMEVAR) 
retu .F. 

endi 
for LETRA = 1 to len(NOMEVAR) 

1f ! (subs (NOMEVAR, LETRA, 1) $ ASCII) 

retu .F. 

endi 
next 
for N = 1 TO IND 

1£f NOMEVAR == TAB NOM[N] 


N =u 100 
retu .F. 
endi 
next 
retu .fT. 


func fc cli 
SXXXAAXXERRASXEEZHAAÃS 
* Cria linhas de constantes. 
para LIN, STRING 
& LEFT « len(STRING) 
Z STRING = ltrim(STRING) 
& LEFT = Z LEFT - lJen(Z STRING) + 1 
Z. STRING = rtrim(Z STRING) 
if len(Z STRING) < 60 
Z LINHA = 'Q '+strzero(LIN,2)+*', 
'4+strzero(Z LEFT,2)+; 
' say “'+Z. STRING+'”' 
£ glin c(Z LINEA) 
else 
& LINHA = 'Q '+strzero(LIN,2)+', 
“,strzero(2Z LEFT,2)+; 
'* say 
“',subs(Z STRING,1,60)+'*”' 
£f glin c(Z LINHA) 
Z REST = len(Z STRING) - 60 
Z LEFT = Z LEFT + 60 
Z. LINHA = 'Q '+mtrzero(LIN,2)+", 
'+Btrzero(Z LEFT,2)+; 
'* say 
“' ,+gubs(Z STRING,61,Z REST)+'”' 
£f linb(Z LINHA) 
endi 
retu '” 
func f menu c 
RAXAZAXERZAXIZAXHHAA) 
* Cria linhas de Menu. 
para LIN, STRING 
Z LEFT = len (STRING) 
Z. STRING = ltrim(STRING) 
Z LEFT = Z LEFT - len(Z STRING) + 12 
4 STRING = rtrim(Z STRING) 
&. LINHA = '60 '+strzero(LIN,2)+"', 
'“+strzero(Z LEFT,2)+; 
* prompt ”“'+Z STRING+'”' 
£f glin c(Z LINHA) 
retu *' 
func f mod cli 
vtrrirtrird dd de dd dd dd dd 
* Gera moldura de acordo com parametros 
passados. 
Z LINHA = 'G '+strzero(M LIN1,2)+"', 
'+strzero(M COL1,2)+' to '+; 
astrzero(M LIN2,2)+"', 
'+Btrzero(M COL2,2)+' double”' 
f glin c(Z LINHA) 
retu '' 
proc £f simples 
trtrrrrrartrrtrgarrro 
* Transforma molduras desenhadas em 
comandos do ClipperiDbase 


Z BOLEAN1 = .F. 
Z BOLEAN2 = .F. 
Z BOLEAN3 = .F. 
Z PASS = 0 
IND M = 0 
do whil '+' $ Z TELA .or. '+' $ Z TELA .or. 


'4+' $ Z TELA .or. '+' $S Z TELA 
Z PASS = Z PASS + 1 
1f Z PASS > 40 
tone (500,2) 
tone (400,2) 
set colo to W* 
6 23, 30 say “Erro no desenho da. 
moldura...” 
wait ** 
set colo to 
exit 
endi 
* Acha posicao da moldura 
for LIN = 1 to 24 
& LINHA = LINHAS [LIN] 
Lf '+' S$ Z LINHA 
Z COLI = at('+',Z LINHA) 
Z LIN1i = LIN 
Z BOLEAN1 = .T. 
endi 
if '+' $ Z LINHA 
1f Z LIN1 us LIN 
& COL2 = at('+',Z LINHA) 
Z BOLEAN2 = .T. 
endi 
endi |. 
L£ '+' S$ Z LINHA 
Z COL11 = at('+',Z LINHA) 
1f Z COL1 == % COL11 
Z.LIN2 = LIN 
Z BOLEAN3 = .T. 
endi 
endi 
next 
* Se foram achados todos parametros 
retira moldura das linhas originais 
* e cria comando € to ... com 
coordenadas da Moldura. 
1f Z BOLEAN1 .and. Z BOLEAN2 .and. 
& BOLEAN3 
for LIN = 1 to 24 
lf Z LIN1 == LIN .or. Z LIN2 == 
LIN 
Z SPC = (Z COL2 - Z COL1) + 
1 
LINHAS [LIN] = 


stuff (LINHAS [LIN],Z COL1,Z SPC,spac(Z SPC)) 


endi 
l£f LIN >= Z LIN1i .and. LIN <= 
Z LIN2 
LINHAS [LIN)] = 
etuff (LINHAS [LIN],Z COL1,1,' *') 
LINHAS [LIN] = 
stuff (LINHAS [LIN],Z COL2,1,' ') 
endi 
next 
* Gera a moldura com codificao 
Clipper/Dbase 
IND M = INDM + 1 
TAB MOLD[IND M] = 'Q 
'+strzero(Z LIN1,2)+"', 
'+strzero(Z COL1,2)+; 
* to 
's+strzero(Z LIN2,2)+', '+strzero(Z COL2,2) 
endi i 
* Retira og caracters '++' e '++' das 
variavel Z TELA 
if Z BOLEAN1 .or. Z BOLEAN2 .or. 
Z BOLEAN3 
Z TELA = '"" 
for LIN = 1 to 24 
Z TELA = Z TELA + LINHAS [LIN] 
next 
endi 
Z& BOLEAN1 = .F. 
& BOLEAN2 = .F. 
Z BOLEAN3 = .F. 
endd 
* Cria comando replicate, quando conjuntos 


de caracteres 196 for 
* maior que tres 
Z TRAC a chr(196)+chr(196)+chr(196) 
for LIN = 1 to 24 
* Permanece enquando existir a 
sequencia de 3 caracters 205 
do whil Z TRAC $ LINHAS [LIN] 
Z POS = at (chr(196), LINHAS [LIN]) 
Z LOC = 0 
* Acha o tamanho da linha 
do whil chr(196) wu 
subs (LINHAS [LIN],Z POS+Z LOC,1) 
Z. LOC = Z LOC + 1 
endd 
IND M = INDM + 1 
TAB MOLD[IND M] = '6 
'+strzero(LIN,2)+', '+strzero(Z P08S,2)+; 
'* say 
replicate(chr(196),'+strzero(Z LOC,2)+')' 
LINHAS [LIN) = 
stuff (LINHAS [LIN],Z POS,Z LOC, spac(Z LOC)) 
endd 
next 
retu 
proc £f dupla 
IAXAXXXAZAAXZAAAARAXAS 
* Transforma molduras desenhadas em 
comandos do ClipperiDbase 


Z BOLEAN1 = .F. 
Z BOLEAN2 = .F. 
Z BOLEAN3 = .F. 
7 PASS = 0 


do whil '+' $ Z TELA .or. '+' $ Z TELA .or. 


'+' S & TELA .or. '+' $ Z TELA 
Z PASS = Z PASS + 1 
1f Z PASS > 40 
tone (500,2) 
tone (400,2) 
set colo to W* 
G 23, 30 say “Erro no desenho da 
moldura...” 
wait '* 
get colo to 
exit 
endi 
* Acha posicao da moldura 
for LIN = 1 to 24 
Z LINHA = LINHAS [LIN] 
lf '*+' $ Z LINHA 
Z COL1 = at('+',Z LINHA) 
& LIN1I = LIN 
Z BOLEAN1 a .T. 
endi 
L£ '+” S Z LINHA 
lf Z LIN1i == LIN 
Z COL2 = at('+',Z LINHA) 
Z BOLEAN2 = .T. 
endi 
endi 
l£f '+' S$ Z LINHA 
Z COLii = at('+',Z LINHA) 
if Z COL1 «= Z COLI1 
Z LIN2 = LIN 
Z& BOLEAN3 = .T. 
endi 
endi 
next | 
* Se foram achados todos parametros 
retira moldura das linhas originais 
* e cria comando € to ... com 
coordenadas da Moldura. 
| if Z BOLEAN1 .and. Z BOLEAN2 .and. 
Z BOLEAN3 
for LIN = 1 to 24 
1£f Z LIN1 == LIN .or. Z LIN2 == 
LIN 
Z. SPC = (Z COL2 - Z COL1) + 
1 
LINHAS [LIN] = 
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stuff (LINHAS [LIN],Z COL1,Z SPC, spac(Z SPC)) 


endi 
1f LIN >= Z LIN1i .and. LIN <= 
Z LIN2 
LINHAS [LIN] = 
stuff (LINHAS[LIN),Z COL1,1,' ') 
LINHAS [LIN] = 
gtuff (LINHAS [LIN],Z COL2,1,' ') 
endi 
next 
* Gera a moldura com codificao 
Clipper/Dbase 
IND M = INDM + 1 
TAB MOLD[IND M] = '€ 
'+Btrzero(Z LIN1,2)+"', 
'+strzero(Z COL1,2)+; 
* to 
'+ntrzero(Z LIN2,2)+', 
'+strzero(Z COL2,2)+; 
* double' 
endi 
* Retira os caracters '+4++' e '++' das 
variavel Z TELA 
1f Z BOLEAN1 .or. Z BOLEAN2 .or. 
Z BOLEAN3 
Z TELA = '" 
for LIN «= 1 to 24 
2. TELA = Z TELA + LINHAS [LIN] 


sequencia de 3 caracters 205 
do whil Z TRAC $ LINHAS[LIN] 
Z. POS = at (chr(205), LINHAS [LIN]) 
Z. LOC = 0 
* Acha o tamanho da linha 
do whil chr(205) == 
subs (LINHAS [LIN],Z POS+Z LOC,1) 
Z LOC = Z LOC + à 
endd 
IND M = INDM + 1 
TAB MOLD[IND M] = '€ 
'sstrzero(LIN,2)+', '+strzero(Z P0S,2)+; 
'* say 
replicate(chr(205),'+strzero(Z LOC,2)+')' 
LINHAS [LIN] = 
stuff (LINHAS [LIN]),Z POS,Z LOC,gpac(Z LOC)) 
endd 
next 
retu 
func f glin c 
XXAXIAXARAXAXAXERAXZARA XD) 
* Gera linhas no arquivo de arquivo texto. 
para BUFFER 
BUFFER = BUFFER+chr (13)+chr(10) 
fwrite (NUMARQ, BUFFER, len (BUFFER) ) 
if ferror() != 0 
tone (400,2) 
tone (300,2) 


GQ 23, 10 say 'Problemas na Gravação, 
Verifique se o disco não está cheio...” 

= .F. | wait ** 
& BOLEAN2 .F. canc 
Z . BOLEAN3 F. endi 
endd £fseek (NUMARQ,O0,1) 
* Cria comando replicate, quando conjuntos retu '' | 
de caracteres 205 for * Fim do Programa:GTELAl4.PRG 
* maior que tres 
Z TRAC = chr(205)+chr(205)+chr(205) 
for LIN = 1 to 24 

* Permanece enquando existir a 


Dê uma chance ao sucesso | Micro 
Sistemas 


Onde está aquele super-fantástico-incrível programa que você fêz? E aquela rotina maravilhosa? Estão 
guardados numa gaveta? Ninguém, além de você, conhece esse trabalho? 

Não perca a oportunidade de mostrar o quanto você sabe sobre informática, programação, linguagens, 
processadores, etc. 

A revista Micro Sistemas é a única publicação nacional que abre espaço para trabalho feitos no Brasil. Ela 
é o único veículo editorial que publica colaborações dos seus leitores. 

Esta é a principal razão do sucesso imbatível da revista, afinal, grande parte dos profissionais com projeção 
nacional neste mercado, foram ou ainda são colaboradores da Micro Sistemas. 

Então, o que você está esperando para fazer parte deste time? 


COLABORAÇÕES: 

Você pode mandar qualquer tipo de matéria (programas, artigos, crônicas, etc). Para que seu trabalho seja 
avaliado por nossa equipe é imprescindível que: 

- os textos, listagens, ilustrações, desenhos, etc venham em disquete 5 1/4 padrão IBM PC; 

- OS programas devem incluir a versão compilada e exemplos (se for o caso); 

- cópia impressa do texto e das listagens; 

- autorização impressa € assinada, para a publicação do material; 

currículo do autor. 

- Envie p/ Enter Press Editora S/A - Rua Washington Luis, 9 / 402 - CEP 20230-900 - Rio de Janeiro - RJ 


O material enviado para a revista não será devolvido. Os autores das matérias publicadas 
receberão uma assinatura anual de Micro Sistemas. 
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DERFLER JR./FREED, GUIA PC 
MAGAZINE DO WINDOWS PARA 
WORKGROUPS - 324 PÁGS 
Guia para obtenção de informações so- 
bre instalação, recursos para grupos de 
trabalho e compatibilidade. Para usuá- 
rios, gerentes e administradores de sis- 

temas. 


Cód: 1 - Preço: CR$ 14.400,00 


e Dios básicos 
o mEspicações 
Protucos 
e Onietivas 


a Gu Essencial 
pero imgiantes 





IBPI, DOS 6 
MÉTODO RÁPIDO - 120 PÁGS 
Guia essencial para iniciantes e indis- 
pensável para quem já o utiliza. Re- 
cheado de dicas básicas e explicações 
práticas e objetivas. 


Cód: 5 — Preço: CR$ 7.200,00 


CONECTIVIDADE 
DE BANCOS 

DE DADOS 
EMPRESARIAIS 


4 Chewe para 
rar ões Empresariais 


+ Solaris 
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HACKATHORN, CONECTIVIDADE 
DE BANCOS DE DADOS 
EMPRESARIAIS — 352 PÁGS 
Este importante livro fomece uma ava 
liação completa dos bancos de dados 
heterogêneos entre corporações, com 
ênfase especial na distribuição de aplt 

cações empresariais para o desktop. 


Cód: 9- Preço: CR$: 16.800,00 





A E EMI LONTE 


PC MAGAZINE, DESVENDANDO O 
DOS 6 - 676 PÁGS 

Este livro baseia-se no mesmo tipo de 
treinamento utilizado com sucesso 
nos estabelecimentos de ensino da 
PC Learning Labs, espalhados nos 
Estados Unidos. Através de disquete 
com exemplos incluído no livro, o leitor 
aprenderá com o método mais fácil, 
mais rápido e mais eficaz. 

Cód: 2- Preço: CR$ 26.200,00 





IBPI, WINDOWS 3.1 
MÉTODO RÁPIDO — 108 PÁGS 
É um guia rápido e eficiente, ideal para 
iniciantes neste novo ambiente opera 
cional, e indispensável para quem já 
conhece e deseja tirar dúvidas de for- 
ma clara, objetiva e rápida. . 


Cód: 6- Preço: CR$ 7.200,00 


ré Bancos de Dados 
Cliente Servidor 


Joe Salemi SAR 
| 
SALEMI, GUIA PC MAGAZINE PARA 
BANCO DE DADOS 
CLIENTE/SERVIDOR - 350 PÁGS 
Através de explicações em linguagem 
clara e conselhos oportunos, o leitor 
encontrará as tecnologias existentes 
e emergentes para o objetivo de sua 

empresa, 


Cód: 3 —- Preço: CR$ 18.200,00 





IBPI, EXCEL 4 

MÉTODO RÁPIDO —- 120 PÁGS 
Esta obra mostra ao leitor os recursos 
do programa, estudando casos reais e 
que poderão ser usados no dia-a-dia 
de sua atividade e como base para o 
desenvolvimento de trabalhos mais 


complexos. 
cód: 7 - Preço: CR$ 7.600,00 

























PC MAGAZINE, DESVENDANDO O 
MICROSOFT ACCESS - 576 PÁGS 
Obra mais completa em nosso idioma 
sobre este novo produto da Microsoft. 
Já apresenta os comandos em portu- 
guês, incluindo um disquete com inú- 

meros exemplos. 


Cód: 4 - Preço: CR$ 27.300,00 
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IBPI, WORD.BOR WINDOWS 2.0 
MÉTODO RÁPIDO - 200 PÁGS 
Amplamente ilustrado, este livro forne- 
ce dicas básicas e explicações práti- 
cas e objetivas para os usuários deste 

excepcional editor de textos. 
Cód: 8 - Preço: CR$ 10.500,00 
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* SIM! Desejo adquirir os livros abaixo relacionados. Sendo assim, envio cheque nominal à ! 
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Gente, o camaval aqui no Rio foi bárbaro. Sol de 40 

graus na sombra, das 6 da manhã às 6 da tarde. Já estou 
revendo minha reivindicação de ficar perto da janela, por um 
release mais atual: perto do ar condicionado não seria de todo 
ruim. 

Meu fã clube que me perdoe (não adianta escrever para 

a revista pedindo fotos), mas não deu para avisar que iria 
desfilar numa das alas da Portela. Sorry, fica para uma próxima 
vêz (guardem os ovos e tomates). 

Semana passada recebi carta do meu primo Tim 

Raster, que mora nos states. Ele mandou avisar que VGA é coisa 
do passado e o quente na terra do Tio Sam são as placas HI- 
Color. Dezesseis milhões de cores simultâneas na tela do seu 
monitor. é pouco? então segura essa: essas placas custam a 
mesmiíssima coisa que uma VGA tradicional. No máximo uns 10 
dólares a mais. Agora estou entendendo o desaparecimento do 
chefe por três semanas. Ele disse que tinha recebido uma nova 
placa de vídeo (arrá, vem coisa por aí...). 

Mas, voltando ao nosso mundo em preto e branco, o 

João Marcos Valadares, de Recife, mandou um ícone esperto. Taí 
João, seu ícone sai nesta edição. Pode mandar mais, que a 
gente publica. 

O Paulo Botelho escreve, lá de Porto Alegre, e pergunta 


sobre imagens coloridas. Olha Paulinho, não dá para fazer uma 
seção Bitmap com imagens coloridas numa revista 
monocromática, nem mesmo numa revista colorida isto seria 
possível (ou seria pelo menos muito complicado). Para 
solucionar este problema, estive com o pessoal da PRO KIT e 
juntos estamos bolando um Bitmap em disquete, totalmente 
em cores e tão udigrudi quanto este aqui. isto deve ocorrer em 
breve, então fique antenado na MS. 

Nossa promoção ainda está de pé. Só para refrescar a 
memória: as primeiras 30 cartas com desenhos à traço e com 
a frase “EU AMO BITMAP” receberão um PRO KIT topview 
especialmente projetado para digitar as animações desta nossa 
amada seção. Aqui estão novamente os requisitos: 


- O PRO KIT topview só roda em PC/VGA 256Kb/Mouse; 
- Os desenhos não podem ter mais que 10 x 10 ém; 

- Devem ser enviados diretamente para a PRO KIT - Caixa 
Postal 108.046 - Cep 24121-970 - Niterói/RJ 

- As cartas deverão chegar até o dia 30/04/94. 


Bob Pixel 





o Clube de Apple com Jornal em Diskette mensal APP E 
o UODO Softwares para Inha Apple e IBM. 
o Assistência Técnica Acrodgtal/Televolt; <> * 
o Toda Inha de Periféricos com envio imediato: 
o fllenor preço e garantia total, só aqu H 





Clube de Usuarios: 


Você poderá contar com toda nossa acessoria para programas da linha Apple (TK3000, Unitron, Spectrum Ed e 





6 AShoP'S 






















compatíveis). Você receberá mensalmente o Jornal em Diskette, o “Apple Van News" com muitas matérias, dicas 
e dúvidas de nossos associados. Valor da Trimestralidade: CR$ 12.000,Caso seja seu interesse em entrar em 
nosso clube, envie-nos cheque nominal a "Maçã Shop's Eletrônica Ltda" juntamente com seus dados, você receberá 













imediatamente o jornal em diskette e a ficha de inscrição para você preencher. 


Peça gratuitamente o nosso Cawálogo de domínio público para linha Apple ou IBM, nele você encontrará toda relação 
de Softwares e Hardwares, lembre-se de especificar qual o modelo de seu computador (Apple: TK3000 ou Apple Il+, 


IBM: XT ou AT). Enviaremos o mais rápido possível para você efetuar sua encomenda. Valor do Diskette gravado: 





Apple Shop's Clube - Telefone: 





a partir de CR$ 700,00. Temos as últimas novidades ! Confira e peça-nos hoje mesmo através de carta ou Fax: 





Ee (021) 287-0810 - Faz: 
Rua Visconde de Pirajá 82 Subsolo 209- Ipanema - CEP:22410-000 - RJ | 






(021) 287-0993 
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Shape 6 


s 6 
ANIMAÇÃO 
Brrrrr!!!!! Dá até medo, mas vamos 
lã. Nesta edição apresentamos (eu e 
eu) uma animação do alien. É isso 
mesmo, daquele monstro babão do 
cinema. À nave Nostromo não cabe na 
página e a belezoca da S.W. pediu os 
tubos (em notas verdinhas) para ter 
sua plástica reproduzida nesta 
fantástica coluna. Então, o jeito foi 
apelar para o monstro, que não está 
nem aí pros babões daqui. 

São seis shapes e a animação é das 
mais simples. E só seguir o roteiro. 


Roteiro TOPVIEW: 

O [SHAPE “Aliens” 
SLIN 10:SCOL 72 
REPET 10 

Anda: 
SHAPE 1:DELAY 3:DECSCOL 
SHAPE 2:DELAY 3:DECSCOL 
SHAPE 3:DELAY 3:DECSCOL 
SHAPE 4:DELAY 3:DECSCOL 
SHAPE 5:DELAY 3:DECSCOL. 
SHAPE. 6:DELAY 3:DECSCOL 
NEXT Anda 
STOP 


Lá 
Y 


00000090000006000 
0040000000090000 


Cursor 

Para quem está cansado 
daquela seta manjadíssima, aqui 
está uma opção bem criativa. Ela 
veio do nosso leitor Marcos 
Valadares, de Recife. 

Se você tem algum desenho 
diferente de ícone, para o cursor do 
mouse, não perca mais tempo e 
mande para a redação de Micro 
Sistemas Se o seu ícone for inédito, 
nós o publicaremos aqui na seção 
BiTmap. 
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Se seu 
problema é a 
portabilidade 
de programas 
executáveis e 
arquivos de 
dados... 


STANDARD MUNDIAL 

— 255 chaves de acesso direto 

— Criação de Pop-up Windows 

- Leitura “Up & Down” de arquivos 

— Estrutura Client-Sever LAN e RDBMS 
— Mais de 2.000.000 Sistemas em uso 


RM/PANELS 
Gerador Automático de Telas 
Sistema WYS/NYG 


RM/COMPANION 

Gerador Automático de Relatórios 
— Gera Programa Fonte 

— Gera Querys ao Usuário Final 


RM/GRAPHS 

Gera Gráficos de negócios 

— 2D/3D 

— Definição Automática de Cores 


RM/CO« 
Ambiente de Desenvolvimento, com editor Janela múltipla 
e Desenho Animado 


RM/TOOLKIT 
Família de Utilitários 
— Mouse, Modem, Sistema Operacional, etc. 


RM/plusDB 
Interface Transparente com Banco de Dados Relacionais 
— Informix*, Oracle*, Progress*, etc. 


Mantém o Padrão dos Sistemas Abertos reduzindo seus 
tempos de programação em 80% 


DESENVOLVIMENTO DE APLICAÇÕES 


Quando você precisa de ferramentas para o desenvolvimento 
de aplicações superiores ao mercado, capacidade & 
funcionalidade & solução do RDBMS & superior a 4GE RM/ 
COBOL & TOOL'S são incomparáveis. 


Ferramentas de Desenvolvimento & Superfícies de Trabalho 
O RM/Cobol possui um poderoso conjunto de ferramentas 
integradas para definir e construir aplicações tais como: 
Menus Ring-Style, Pop-Down & Pull-Down, e ainda Dialog 
Boxes, Forms e Objetos para desenvolvimento de Aplicações 
RM/Cobol, oferece maior capacidade e flexibilidade para o 





E o unico caminho! 


desenvolvimento, reduzindo o tempo de manutenção e 
possibilitando uma consistente interface com o usuário. 
Superfícies de Trabalho são interfaces funcionais que 
permitem definir regras de integridade e de negócios. 
Somente o RM/Cobol possui um desenho de interface 
altamente visual e amigável, possibilitando uma fantástica 
melhoria na produtividade do desenvolvimento de telas, 
estando bem acima dos métodos de códigos convecionais. 
O Help on line estã sempre presente para consulta. 


Dicionário de Dados 

O Dicionário de Dados do RM/Cobol é um repositário 
central para definir toda e qualquer informação usada na 
tela como: Borda, Lay-Out, Cores, Formato dos campos, 
Valiações Lógicas, Help on line, Mensagens de Ajuda e 
Erro, Prompt de cores campo a campo, e mais. Desta forma 
você ganha um controle de integridade de dados altamente 
eficiente, com vantagem adicional de uma reduzida 
codificação. 


Abertura para outros ambientes 

O RM/Cobol pode acessar outros Bancos de Dados como: 
INFROMIX, ORACLE e no final deste anos PROGRESS, 
INGRESS, pode acessar outras linguagens, através de 
“CALL” nas subrotinas. O “APLICATION PROGRAM INTER- 
FACE” permite criar subrotinas novas funções escritas em 
“C” e Assembler, o que possibilita inclusive acesso a outras 
bases de dados. 





JANDE ir 


Representante para Brasil, Argentina, Paragual e Urugual 


ENDEREÇO NO BRASIL 

Av. BRIG. FARIA LIMA, 613 - 8º ANDAR CJ 84 
01451-000 - SÃO PAULO - SP 

TEL/FAX: (011) 829-7891 


ENDEREÇO NA ARGENTINA 

Av. CORRIENTES, 821 - 6º ANDAR (1043) 
BUENOS AIRES 

TEL.: (541) 4489426/7/8 - FAX: (041) 447-2363 
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PAINEL D 


D<pessuo um 486 DX 40 
om monitor SVA color e 
HD de 360 Mb. Sou formado em 
análise de sistemas pela 
PUCMG, mas curto bastante um 
jogo que me desafia. 

No momento o obstáculo a ser 
vencido é o jogo “indiana Jones 
Fate of Atlantis” no qual me vejo 
a cinco semanas no labirinto de 
Creta, estando com as três 
pedras chaves e todos os outros 
itens necessários (tenho quase 
certeza) mas não consigo achar 
(ou fazer) um tal de detector de 
orichalcum nem a parede ser 
escavada com o “ship rib”, o 
que para o meu desespero é 
vital para o prosseguimento do 
jogo!! Só nós que curtimos uma 
boaaventura“ala” IndianaJones 
sabemos do magnetismo que 
ela exerce. 

Marcius Diniz Guimarães Jr. 
Cx.Postal 11 - CEP.:35680-000 

Itaúna - Minas Gerais 


ossuo um 386 com 
VGA e gostaria de 
entrar em contato c/ leitores 
que tenham os jogos Elite, Elite 
Plus ou À-10 Tank Killer 1 ou 2, 
e também para troca de jogos e 
aplicativos em geral. Peço se 
possível que envie lista de softs 
para agilizar a troca. 
Alex. T. Medeiros 
R. Marechal Floriano Peixoto 1370 
São Lourenso do Sul - RS - 96170-000 


pec como leitor 
esta conceituada 
revista elogiar alinha de trabalho 
efetuada por seus editores. 
Escrevo-lhe para solicitar a 
divulgação do PASCLUBE, Clube 
de Usuários de Pascal. Estamos 
formando este clube para que 


LIVRARIA 
CIÊNCIA NOVA : 
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ssamos tracar informações, 
atéria de programação, livros, 
evistas, programas, rotinas, 
ibliotecas e ferramentas 
esenvolvidas para auxiliar os 
rogramadores desta 


linguagem. Gostariamos que 


odos os programadores (de 
ualquer nível) fizessem contato 
nosco. 

ASCLUBE 

X.Postal 548 - CEP.:14801-970 
raraquara - SP 


Deo acompanhado a 
evista Micro Sistemas 
rumgrande período de tempo, 
a mesma continua excelente, 
as o motivo de eu escrever 
s senhores não é somente 
logiar a revista, mas sim 
olicitar para que seja publicado 
m fato lamentável da firma que 
ende programas de computador 
AKERU SOFTWARE do Rio de 
aneiro, sendo que o fato deu-se 
a seguinte forma: 

emeti um pedido de programas 
ra a linha Amiga 500 em 29/ 
1/93, ondenaépocarelacionei 
lguns programas com 
isquetes inclusos, onde remeti 
nto com o pedido um cheque 
ominal e cruzado em favor de 
akeru Software no valor de CR$ 
-000,00 sendo que a carta 
om o pedido e o cheque nomi 
al foi enviado em uma carta 
gistrada; 

referidocheque foi descontado 
m 09/12/98; 

vido a demoranorecebimento 
os programas solicitados por 
im, escrevi duas cartas, não 
tendo respostas até hoje. 
omo não me restou outra 
Itemativa, resolvi escrever aos 
enhores, pedindo para que 
inha carta seja publicada, e 
formando que tudo que escrevi 
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sso confirmar, pois tenho o 
úmero do cheque, o extrato de 
uando o mesmofoi descontado, 

ssuo o número de registro da 

ta e as segundas vias das 
rtas remetidas à Takeru Soft- 


Postal 400 - CEP.:95590-000 
ramandai - RS 


Dpostaria de trocar 
rogramas, fontes e 
icas sobre alinguagem Assebly. 


. Frei Ruperto de Jesus, 230 
3985-050 - São Paulo- SP 


sos 


Do ler o atigo “Pro- 
ramação orientada para 
jetos” das edições deoutubro 
novembro/98, aindafiqueicom 
úvidas. Eu desenvolvo sis- 
emas em Clipper (v.5.2), e se 

r exemplo eu estiver fazendo 








ma manutenção num 

eterminado banco de 
ados (inclusão, alteração, 
xclusão e consulta de 
gistros), posso usar OOP”. Se 
resposta for afirmativa, se 
sível, peço uma demons- 
ação prática. 






















. Sônia, 85 - Picanço 
7093-240 - Guarulhos - SP 


olicito informaçãoa respeito de 
ublicações no passado de 
Igum programa emClipper para 
xtenso e datas a ser utilizado 
/ cheques recibos e duplicatas. 
aso positivo, como adquirir? 
ultimo, seria possível que 
Igum de seus colaboradores 
deriam me ajudar a informar 
omo expandir caracteres da 
pressora Epson LX 80 colunas 


Marco Boteon, 13 - Núcleo Cesp 
6200-000 - Birigui - SP 





DISKTor- toa Tone Mo Fáceis [oMoN=1g- EI] 
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ar 
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mamar 


DIS NA OI)D 


VIMENTO 





Para pequenas empresas que 
procuram grandes programas. 


Se você é profissional liberal, micro, pequeno ou médio empresário, não perca o 
| Salão de Desenvolvimento de Softwares. Um evento que vai acontecer durante «a 
IV Feira Pechincha - Informática, no Pavilhão da Bienal, Ibirapuera. 

E que tem tudo o que você precisa para informatizar e melhorar seus negócios. 


* Empresas especializadas em criação de programas para diversas atividades 
profissionais. 
- Assessoria para implantação de sistemas. 
Orientação para compra de equipamentos. 
* Softwares específicos para direito, medicina, arquitetura, contabilidade, 
gerenciamento e outras áreas. 
- Reuniões, palestras e encontros do seu interesse. 


GREAT 


Além disso, você conta com outra grande vantagem: equipamentos e suprimentos 
financiados em 6/12 vezes pela Caixa Econômica Federal. Produtos das melhores 
marcas e para pronta-entrega a preços abaixo das lojas. | 
| Salão de Desenvolvimento de Softwares. Entrada franca. Não perca este programa. 





INFORMAÇÕES 22426 

(011) 530-1800 DE MARCO 

Ápoio: 

a— BIENAL 

nr = IBIRAPUERA 
SP 3º À 6º DAS 12 ÀS 22h 

e SABADO DAS 10 ÀS 22 h 


i ad Realização: 
EO ana DID TN ROSA & MIZOGUCHI MARKETING E EDITORA 














PESQUISA MS 


VAI COMEÇAR A RODADA 
1994. 


PARTICIPE COM A SUA OPINIÃO: 
ELA VALE DUAS ASSINATURAS ANUAIS DA 
REVISTA MICRO SISTEMAS 


Responda as questões de acordo com a sua preferência. No caso de usar mais de um programa de mesma classe, 
escolha apenas aquele que julga mais adequado para o seu uso. Não importa a origem do software: Escreva de 
forma clara e legivel o nome do programa. Remeta para: ENTER PRESS Editora Ltda. - Rua Washinton Luis, 9 - Gr.402 
- Rio de Janeiro - RJ - CEP:20230-900. 








NOME: 

ENDEREÇO: 

CIDADE: 

MICRO === 2 ssppsssissa= == o 

DS O ES 
PROCESSADOR DETEXO.... nn — 
PLANILHA ELETRÔNICA 
LINGUAGEMDEPROGRAMA:- 


UTILITÁRIOS... — 


SISTEMA OPERACIONAL: ———— 


ANTIVIRUS... WD — 


COMPACTADOR:— 
EDITORGRÁFICO: o — 
DESKTOP PUBLISHING:— 


CAD/EDITORES3D... 
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FENASOFT 


Á 





E BRASIL. 


Em novembro de 1993, revistas e jornais dos Estados Unidos, 





Japão, Hália, França, Alemanha, Argentina, Uruguai, Canadá, 
Singapura, Tailândia, Coréia, Espanha e Portugal publicaram 
matérias sobre a 7º Fenasoft e seu significado no mundo da alta 
tecnologia. Nós, da Fenasoft, ficamos, evidentemente, muito 
orgulhosos. Por nós e por nossos expositores, que são, sem dúvida, 
os grandes responsáveis por esse belíssimo resultado. E, ao ler em 
tantas línguas diferentes o sucesso da nossa Feira, tivemos uma 


certeza: Fenasoft é tecnologia, Fenasoft é Brasil. 


ESSES Asc RN eg ASI 
19 a 22 de julbo — Anbembi — São Paulo 





Circule o nº 031 no Direct Link Card 





|Fenago 


dera ga 








oFt 








Atenção senhores passageiros com 
destino ao futuro. Queiramretirar 
seu cartão de embarque e boa viagem. 





19 a 22 de julho - Anhembi - São Paulo 





ad 
: 
Solici é 30 de abri à! 
olicite, até e adm o seu cartao. 
C ] é emb fil F f f 
om ele você embarca sem filas na Fenasoft rumo ao Tuturo. 
Já começou a contagem regressiva para o início da maior feira Cartões de anos anteriores são válidos para a Fenasoft 94. 
de informática do mundo: Fenasoft 94, de 19 a 22 de julho no Solicitações feitas após 30 de abril só serão atendidas mediante 
Anhembi, São Paulo. Foram 800 mil visitantes no ano passado. Em pagamento de taxa de US$ 2 (até 31/mai), US$ 3 (até 30/jun) e 
94, serão mais ainda. US$5 (até 22/jul). Se você já possui o seu cartão Fenasoft e, por 
Garanta desde já o seu livre acesso, sem filas nem contratempos, algum motivo, deseja trocá-lo, deve enviar junto com o pedido uma 
solicitando o seu cartão Fenasoft. taxa de US$ 5. 
Ele é totalmente grátis se pedido até 30 de abril e pode ser (Qualquer pagamento deverá ser efetuado por cheque nominal a 
enviado para o endereço que você determinar. Basta preencher o FENASOFT Participações, Administração e Eventos Ltda. pelo 
cupom abaixo e remeter para a Fenasoft por correio ou fax. valor do dólar turismo do dia do envio do mesmo). 
NOME 
EMPRESA 
er 
PAÍS TELEFONE 
FAX DATA DE NASCIMENTO 
1 - Qual seu cargo na empresa onde trabalha? 5 - Qual a principal área de atuação de sua empresa? 
a Presidente E Diretor Superintendente | Representante de Vendas | A [] Governamental | L] Educacional QL] Revenda de Periféricos 
B Vice-Presidente F Gerente de Departamento ) Analista de Sistemas B L] Agricultura, Mineração, Petróleo J) LJ] Industrial R LJ Fabricante de Suprimentos 
C Sócio G 4 Controller/Tesoureiro K Digitador CAs Transportes K E Construção Civil S Revenda de Suprimentos 
D LiGerente Geral H LJ Consultor/Assessor D Comunicação L LJ Fabricante de Software T [] Bureau de Serviços 
E [] Manufatura ML] Revenda de Software U LJ Gráfica 
2 - Quantos empregados tem sua empresa? F H Financeira / Contabilidade  N H Fabricante de Hardware V E Jomalismo K 
G Seguros / Imobiliária O LJ Revenda de Hardware WI] Editora 
A Mais de 5000 E 250 a 499 | 25049 : é : bg 
B 1000 a 5000 F 100 a 249 ) 10024 H L] Médica / Saúde P [] Fabricante de Periféricos 
C 750 a 999 G 75 a 99 K 5a9 
D 500 a 749 H 0a74 di 
; em E pd rir 6 - Quais as principais aplicações do computador na sua empresa? 
3 - Qual seu poder de decisão para compras na empresa? A L Contabilidade G L] Desenv. de aplic. de programas 
A Autoridade total C LJ Autoridade limitada E H Pouco envolvimento B Comunicação H L] Controle de processo / manufatura 
B Autoridade alta D Recomenda produtos F Nenhum envolvimento C Gerenciamento de Bco. de Dados Centífica / Engenharia 
D Correio Eletrônico J H Editor de Textos 
J 2 E Desk Top / Cad Cam K Gerenciamento de Processos 
4 - Qual o volume de vendas de sua empresa? F E) Design Gráfico / Multimídia 
A US$ 500 milhões ou mais E US$ 25 a 49 milhões | US$ 500 a 749 mil 
B US$ 100 a 499 milhões F US$ 10 a 24 milhões J US$ 250 a 499 mil 
C US$ 75a99 milhões  GLJ US$ 1a milhões K US$ 100 a 249 mil 
D US$ 50 a74milhões MH US$ 750 a 999 mil L menos de US$ 100 mil 
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